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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!# ALL RIGHTS RESERVED 


® 
® 
* 
® 
® 
iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i ON OF SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTWERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. ~ 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
& 
® 
® 
® 
® 
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'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0 lee 
0 ! 
3 FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
0 i ABSTRACT: 

5 0 i Miscellaneous put routines 

6 00 ! 

7 0037 ! 

8 0038 i ENVIRONMENT: 

\) 0039 i 

0 0040 ! VAX/VMS OPERATING SYSTEM 

1 0041 ' 

2 004 ed 

3 004 

4 0044 ! , 

2 Open AUTHOR: Christian Saether CREATION DATE: 6-JUL-78 10:56 

7 0047 ! 

8 0048 ! MODIFIED BY: 

9 0049 ! ; 

50 0050 ! v03-012 MCNO010 ria det C. 04-Apr-1983 

2 Boe! Change Linkage a *RNSCOMPRESS” KEY. 

53 iE ! v03-011 eg § 4 Maria del C. Nasr 15-Mar-1983 

3 O03 } More Linkages abate nie 

56 0056 ! v03-010 MCNO008 a del C. 22-Feb-1983 

57 0057 : RMSBLD_IDX_REC a " RASHOVE ins veN are not global routines 


lS 16-Sep-1984 94:31:38 Ax-11 Bits -32 V4.0-74 Page 2 
v04-000 14-Sep-1984 13:01: RMS .SRCIRM3MISPUT.B32; (1) 
; & 0058 1! anymore, make them local. Also. make local Linkages more 

: 26 0039 : } general, and reorganize Linkages. 7 

: 61 0061 1 V03-009 TMK0006 Todd M. Katz 10-Sep-1982 

: 6 Beg 1 Add support for Prologue 3 SIDRs. The routines which have been 
; § 0065 1 } modified or rewritten are: RMSRECORD_SIZE, RMSADD_TO_ARRAY, 

: ¢: BRee : RMSBLD_NEW_SIDR, and RMSINS_REC. 

; & 0066 1! I also reformatted the whole module, putting the routines in 

: of 494 : alphabetical order, and redid some ot the Linkoges. 

: 69 0069 1: v03-008 KBT0222 Keith 8B. Thompson 23-Aug-198 

: £9 TA : } Reorganize psects ° . . 

: 7 0072 1! v03-007 TMKO005S Todd M. Katz 02-Jun-1982 

: 7 00735 1 Implement the RMS cluster solution for next record processing. 
: 74 0074 #1 } There is no longer any need to reference the NRP cell to obtain 
; rp 0075 1 the RFA address of the current primary data record because that 
; 0076 1 information is now kept locally in the IRAB as part of the next 
; 77 0077 1 record context instead of in the NRP cell which has been 

; gw 0078 1! deleted. Also refer to the fields IRB$_PUTUP_VBN and 

: 79 0079 1! IRB$W_PUTUP_ID when refering to the new/changed primary data 

: 6° sits : which requires the SIDR entry. 

; 682 0082 1! v03-006 KBT0066 Keith 8. Thompson 17-Jun-1982 

; HH 4 F4 ; } Remove rm$move_sig_cnt routine 

; 85 0085 1! v03-005 TMKO004 Todd M. Katz 11-May-1982 

; 0086 1 Added code for the support of two index bucket split cases 

: 87 0087 1 } which are currently not supported. At the present time when 

; #8 0088 1! one of these split cases occur, the routines in this module are 
; 0089 1! never called, but instead, a higher routine returns an 

; 0090 1 } alternate success status of index not updated. These two split 
i 0091 1 } cases are: two-pass two-bucket with oty bucket split case 

; - = 0092 #1 } and two-pass multi-bucket with empty buc ef split case. Support 
; 0093 1 has been added for all Eee ue versions. The routines which 

; 94 0094 1 } have been modified are RMSRECORD SIZE, RMSSHFT_VBNS, 

; 5 0095 1! RMSBLD_IDX_REC, and RMSV3_IDX_REC. These routines have been 

; *# 0096 1! modified so that they can perform their individual functions 

s Wr 0097 1 } during each of the two individual passes required to correctly 
; = 0098 1! update the index during these two-pass empty bucket index 

; 299 0099 1 } bucket split cases. During the first pass, these routines 

; 100 0100 1! unction on the old (left) index bucket, and during the second 
: 198 13) ' pass these routines function on the new (right) index bucket. 

: 10 0103 1: V03-004 TMK0003 Todd M. Katz 26-Apr-1982 

3; 104 0104 1 Redid the way all empty bucket ogt tts are inne for prologue 

; 105 0105 1 3 files. There were many errors in the way they were being done 
; 106 0106 1 } especially in those cases when a decision was made not to swing 
3: 107 0107 1! the level one index pointer from the old (left) bucket to a 

; 108 0108 1 new (middle) bucket because the downpointer was not currently 

: 109 0109 1! oh by to the left bucket. Changes were made to the routine 

; 110 0110 1! MSRECORD_SIZE so that the size of the new index record(s) 

s 111 Bia gg could be correctly computed for all empty bucket sovelying 

: 46 ie 1! index updates. Changes were made to tne Foust tne RMSSHF T_VBNS 

3; «11 0115 1! so that the spreading apart of VBNs during index updating was 

3; (114 0114 1! performed correctly for all index updates involving empty data 


1 

| RMSMISPUT 1b-se -1984 01:51: AX-11 Bliss-32 V4.0-742 Page 3. 
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buckets. Finally, the routine RMSV3_IDX_REC was modified to 

correctly perform all index updates nvelving empty buckets, 

and most especie. ty those updates were no pointer is to be 

swung because the level one index down pointer does not point 

to the old (leftmost) data bucket. These changes will be 

included as a patch on the V3.1 update floopy. 


v0O3-0u- TMKO0002 Todd M. Katz 13-Apr-1982 
Fixed a bug in RMSRECORD_SIZE. This bug only_showed up when 
a mu'ti-bucket data level split of a prolog 2? file with index 
compression required updes ing of the level 1 index with two 
index records. The size of these two index records was being 
incorrectly computed. I was refering to keybuffer 5 (containing 
the compressed key of the first record) in one instance when 
I should have been refering to keybuffer 4 (containing the 
compressed key of the second record), and thus the combined 
size of the two index records was being incorrectly computed. 


v03-002 LJA0007 Laurie Anderson 25-Mar-1982 
Change KBUFSZ to reference a macro when computing buffer 
size and make IFBSB_KBLFSZ a word, now: IFBSW_KBUFSZ. 


v03-001 TMKOOO1 Todd M. Katz 03-Mar-1982 

Fixed a bug in the determination of the record size of | 

a two-bucket with empty bucket bucket split case involving 

prolog 3 index buckets with compressed keys. In such a case 
there is no key to be inserted, but due to insufficient 

checks the routine RM$V3KEY_SZ was being called as if there 
was a key. This routine thinks there is a ye ae keybuffer 2 

| 


and attempts to move it into keybuffer 5 so can compress 

it. Since there isn't a key, it ends up patie garbage into 

the keybuffer and into the RLB which follows it guarenteeing an 
access violation the next time Ri UNLOCK is calied. The fix 

is to make sure that this routine will never be called for 

this particluar prolog 3 bucket split case. 


v02-022 KPLO001 Peter Lieberwirth 2-Mar-1982 
Fix Linkage from v02-021 


v02-021 TMKO00S Todd M. Katz 02-Mar-1982 
Made several changes to the routines in this module: 


| 
1. RMS$SV3KEY_SZ is no longer a global routine. 
2. Added a symbol to RMSFOOLED_YUH so that reprobing of the | 
| 
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3. Added support for rear-end truncation of keys in prolog 3 | 
buckets containing compressed keys. This included changes in 
the way the size of two compressed keys (from a multibucket 
split) is computed in RM$RECORD_SIZE, changes in_ the way the 
size of a single ney is determined in RMSV5KEY_SZ, and 
changes in the way in which keys are inserted Into prolog 3 
buckets (with compressed keys) in RMSADD_V35KEY. ALL these 
changes reflect the fact that compressed keys are now 
rear-end truncated as well as front-end compressed. 
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TMKO004 Todd M. Katz 12-Feb-1982 

Add checks for a multibucket split in RMSRECORD SIZE and 
RMSBLD_IDX_REC in all instances when it isn't absolutely 

clear whether RMS is iat process tog a two-pass two-bucket 
split case or a two-pass multibucket split case (where both 
records are to go in the same bucket). 


TMK0003 Todd M. Katz 08-F eb-1982 
Document what is going on in RMSRECORD SIZE so that someone 
besides me might possibly understand what is going on from 
the comments. The current comments are both confusing and 
wrong. 


TMK0002 Todd M. Katz 30-Jan-1982 

Made many changes to several of these miscellaneous routines 
inorder to fix a variety of bugs, and to add functionality 
that was gc > I will List the reasons for the changes 
made, and how the routines were changed. 


1. Added REC_SZ as an arguement to both RMS$BLD_IDX_REC 
and RMSV3_IDX_REC. It was require in the former to pass 
it to the latter, and in the latter to fix the prolog 3 
ot gap split trailing key recompression bug described 
elow. 


2. Fixed a prolog 3 multibucket split key recompression bug. 
When a multibucket split occurs, and the index must be 
updated with two keys, the key at the insertion point 
must have its front compression redetermined. However, 
the key recompression routine, RMSRECOMPR_KEY, is unable 
to recompute the front compression of a key if its 
current front compression is not equal to the front 
compression of the key preceeding it. If it has greater 
compression the index is out-of-order, and if it has less, 
it assumes there is no need for recompression. Well, 
the two keys BB AND BC were to be inserted between AA and 
BD, the trailing key BD was not being recompressed because 
its current fron compression (0) was less than the 
compression of the record preceeding it (1) even though 
it should be recompressed to have a new front compression 
value of 1. The fix was that on a multibucket split, the 
first ney is inserted and used to recompress what will 
become the trailing key, and then the second key is inserted 
and used to recompress the trailing key. This required 
changes to RMSADD_V3KEY, so that recompression is NOT 

erformed if the Key be ng inserted is the first of two 
eys, and changes to RM$V5_IDX_REC, to recompress what 
will become the trailing kéy after the first of two neye 
is inserted, based on the first key that is inserted. In 
addition, I also added the change such that if the first 
of two compressed keys to be inserted is zero front 
compressed, then the pointer to the last noncompressed key 
is incremented to this key to facilitate the determination 
of =e SFORS compression of the next key when it is 
inserted. 
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S 3. Added code to restrict when trailing key recompression 


is required. If one or two heys are inserted into a 
rolog 3 index bucket containing compressed keys at the 
oe of the bucket's freespace, there is no need to 

redetermine the front compression of the trailing key 

because there is no trailing key! coreer ye the front 
compression of the arevt ing key was blindly determined 
as part of the process of inserting any compressed key 
regardless of whether tnere was any key that trailed the 
key inserted or not. 


4. Changed the decision by which the keys and VBNs in prolog 
index buckets are shifted in order to make room for the 

insertion of a new key-VBN pair. At the present time, if 
the key/VBN is to be added as the hish order key in the 
bucket, neither the keys nor the VBNs are shifted since 
both ‘grow’ inward towards the center. An additional check 
is added to also not shift the keys or VBNs, if the 
number of bytes by which they are to be shifted ‘‘inwards"’ 
is 0. This will occur when the split point of an index 
bucket matches the insertion point, and just the VBN of 
the new lower order key of the new (right) bucket is to 
be updated to its new value. 


Lee eee eee — | 


5. Adced code necesaary for support of a Prolog 1 & 2 split 
case. When the insertion point of a multibucket split is 
found to be at the split peter. but there is sufficient room 
in an index bucket for only two index records, and the 
insertion point happens to come at the bucket's beginning, 
both of the old index records must be moved out of the old 
bucket to make room for the two new index records which are 
both put in the old bucket. This index bucket spiit case 
required code to be added to RM$RECORD_SIZE and 
p 
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BLD_IDX_REC. As this split case is fiandled by making two 


MMM Ponononefenonononononononononononefvefernoperenorn) 


asses, one for insertion of the two new index records in 
the old index bucket, and the second to update a VBN pointer 
in the low order key of the new bucket, both of these 
routines had to be modified, to take the proper action for 
each of the passes of this case. RMSBLD_IDX_REC oversees 
addition of the both keys and a VBN during the first pass. 
and updates a VBN during the second, while RMSRECORD_SIZE | 
makes sure to return the proper size of the index record 
to be added during each pass. 
| 
| 
| 
| 


6. There are three bucket split cases for when the insertion 

pores and the bucket split point are the same and no empty 
uckets are involved. For all three cases, two passes must 
be made, and for all three cases no code existed for proces 
3 buckets. Changes were made to RM$RECORD SIZE, RMSSHFT_VBNS 
and RM$V3_IDX_REC to su gort these three Bucket split cases. 
The changes made to RMS$V5_IDX_REC allow the routine to 
recognize these three two-pass bucket split cases, which of 
the two passes is in progress, and to take the appropriate 
action. As the VBNs in prolog 3 buckets are order from 

right to left and “‘grow inwards’’, if a index record with a 
key value iess than the current high key value of the bucket 
is inserted, the VBNs must be shifted to make room for the 
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v0O2-017 TMKOO01 Todd M. Katz 
Make a change to RMSSHFT_VBNS which affects three-way bucket 
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VBN associated with the just inserted key. The routine which 
performs this shifting (RMSSHFT_VBNS) had to be modified to 
recognize these three bucket split cases, which of the two 
posses was current, and perform any required VBN enrst ing. 
oni RMSRECORD_SIZE had to be similary modified so that 
d return the size of the index record to be inserted 


it wou 
into the ‘‘current’’ bucket. The size, of course, as well as 
the current bucket depends a the split case, and which 
of the two passes is currently under way. The three bucket 
setit cases and their effect on these routines are as 
ollows: 


TWOBUCKET SPLIT: 

During the first pass (when the index record contents of the 
old bucket are updated) just a key is added. The size of the 
record is the size of the key, and no VBNs need be shifted. 
During the second pass (when the index record contents of 
the new index bucket are appropriately modified), just a VBN 
is updated. The size of the record is the difference between 
the VBN size required to hold the old data level VBN and the 
size required to hold the new data level VBN. No VBN 
shifting is required unless the size is greater than 0. 


THREE-BUCKET SPLIT = ONE KEY IN EACH INDEX BUCKET: 
During the first pass, just a key is added to the contents 
of the old index bucket so the record size is the size of 
the key and the no VBNs need be shifted. — the second 
pass, a new key and VBN is added as the low order key in the 
new index bucket, and a VBN is also updated. In this case 
VBNs must be shifted to make room for the new VBN and any 
change in VBN size, and the record size includes the key 
—_ , the VBN added, and any difference in data level 

size. 


THREE=BUCKET SPLIT = BOTH KEYS IN OLD INDEX BUCKET: 

This ops st case only occurs when the insertion point and 
the split point are at the be yin of the old index 
bucket and both keys in the old bucket must be moved out 

to make room for the two new keys. During the first pass, 
both keys are added as is a VBN. The record size is the 
size of the two keys and the VBN added, and no VBN shifting 
need take piece. During the second pass just a VBN is 
updated. The record size is computed to be any difference 
in sizes required to hold data level VBNs, and VBN shifting 
takes place only if there is a difference. 


11-Jan-1982 


splits where one of the resulting buckets is empty. The 
routine was adjusting the offset pointer to where the 

VBN shift should start. This is wrong, and in fact, caused 
index corruption so I removed it. 


PSK0007 Paulina S$. Knibbe 14-Dec-1981 


Change record_size to take BKT_ADDR as an input 
PSKO006 Paulina S. Knibbe 26-0c t-1981 
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re r Add support ror compressed indexes te rm$v3key_sz 
45 4 VO2-014 PSK0005 Paulina S. Knibbe Lao Pa 
rg re Fix some problems w/large VBNs in index buckets. 
1 348 ; 02-013 PSK0004 Paulina $. Knibbe 29-Jul-1981 
49 4 Remove support for growing prologue three compressed 
50 5 indexes. Add code to handle indexes with no chars 
é] $2 compressed off of the rear. 
2g 32 vO2-012 PSK0003 Paulina S. Knibbe 24-Jul-1981 
28 32 Fix off-by-one error in SHIFT_VBNS; other problems 
2 32 with growing VBNs 
57 35 v02-011 PSK0002 Paulina S. Knibbe 13-Jul-1981 
58 35 Add ‘RMSSHFT_VBNS' to handle spreading the VBN chain 
ef $7 in prologue Ehree index buckets. 
361 36 v02-010 MCNO007 Maria del C. Nasr 28-Jun-1981 
306 Add RMSMOVE_SIG_CNT. 
364 v02-009 PSK0001 Paulina S. Knibbe 08-Jun-1981 
365 Add pupsert for prologue three index buckets: | 
366 ste D_SIZE, RMSNEW_VBN_BYTES, RMSV3KEY_SZ 
367 RM$V3_IDX~REC,RMSADD_V3VBN;RMSADD_V3KEY | 


Increase size of record identifier to a word in the NRP. 
Change Linkage to RMSRECORD_SIZE to include IFAB. 


VO2-007 REFORMAT C D Saether 01-Aug-1980 18:10 


v0006 CDS0077 € D SAETHER 24-JAN-1980 13:50 
Don't want to create dupes count field on continuation 
SIDR arrays either. 


v0O0o0S c¢pds0071 _ CD SAETHER 15-JAN-1980 12:28 
Fix bug lt 5 hy dupes count field in SIDR records when 
dupes aren't allowed (rm$record_size and rm$bld_new_sidr). 
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Revision history: 


Wendy Koenig, 24-OCT-78 14:02 
x0002 = MAKE CHANGES CAUSED BY SHARING CONVENTIONS 


Christian Saether, 26-JAN-79 9:01 ; 
x0003 - check down pointer before attempting to swing from empty bucket 
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Christian Saether, I-july-79 11:00 
X0004 - fix nxtrecid logic in RMSINS_REC (caused re-use of ID's) 
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LIBRARY ‘RMSLIB:RMS'; 
REQUIRE ‘RMSSRC:RMSIDXDEF*; 
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CT 
CODE = RMSRMS3( 
PLIT = RMSRMS3( 
1 
i Linkages 
LINKAG 


E 
L_COMPARE_KEY, 


L-RABREG’7, 
L-REC _OvAD, 


RLSCOMMON_L INK 
RLSMOVE_IN_VBN 


Forward Routines 
FORWARD ROUTINE 
RMSMO 


MSMOVE_IN 
RMSSHFT -WBRee 
RSV SO LDX, A REC 


RMSVBN_ eT: 
External Routines 
a wh E 


RMSV3_VBN 


em a ee ed ed ed ed et ed wd dd dd dd od od dd 


= 


Local Linkages 
RLSADD_TO_ARRAY = 


jock 


RLSNEW_VBN_BYTES = 


1Soseoctgee 01:51:28 


ee Bits -32 V4. toe 
RMS. SRCJRM3MI SPUT .B32; 1 


! 
; define default psects for code 


(R 1x PFN R_IRAB, R_IFA3, R_REC_ADDR), 
TANBAR 


GLOBAL (R Bk “A00R. R_IFAB, R_IRAB, R_IDX_DFN, R_REC_ADDR), 


(REGISTER 


a OBAL (R -BKT_ADOR, R_IDX_DFN); 


: RLSMOVE_IN_VBN NOVALUE, 
: RLSCOMMON_CINK NOVALUE, 
: RLSCOMMON-LINK NOVALUE, 
: RLSCOMMON LINK, 

: RLSPRESERVE!. 


: spre: 567, 


RL SCORPARE KEY, 


: RL$JSBO 

: RLSRABREG 67, 
: RLSPRESERVE1, 
: agate 


: RLSJS B61 

: RL SPRESERVET, 
; RL VH 

: RLSRABREG_567; 


AX=-11 Bliss-32 V4.0-74 Page 9 
AMS SROIRAIMI SPUT B32; . (1) 


BRR Ei 2 9:8:8:8 | 
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=138¢ 94:31:38 AX-11 Bliss-32 V4.0-74 Page 


1 
RMSADD_TO_ARRAY RMS .SRCIRMSMISPUT.B32; (2 


ZSBTTL_ ‘RMSADD_TO_ARRAY' 
ROUTINE RMSADD_TO_ARRAY : RLSADD_TO_ARRAY NOVALUE = 


'e¢ 
' 


i FUNCTIONAL DESCRIPTION: 


This routine adds a new array to an existing SIDR array, and updates 
the size field of the SIDR. 


CALLING SEQUENCE: 
RMSADD_TO_ARRAY () 
INPUT PARAMETERS: 
NONE 


feojejejlelelelelela} 


PUPA SISAAISIV 


WINN WWIWNwnorornoroneny 


OWONA NEW "OOOO 


IMPLICIT INPUTS: 


address of IFAB 
prologue version of the file 


address of IRAB 
| 


AB 
IFB$B_PLG_VER 


AB 
IRBS$L_LST_REC 
IRB$W~PUTOPD_ID 
IRBSL~PUTUPD~VBN 


address of yy of SIDR 
ID of UDR to put into record pointer 
VBN of UDR to put into record pointer 


REC_ADDR - address of where new array element is to go 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

REC_ADDR points - address of SIDR's size field 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
NONE 


PAPAS MIMANMNUNINUIU EE BLEEP LEE 


BEGIN 


TR, 
R-IRAB~STR, 
R-REC_ADDR_ STR; 


GLOBAL REGISTER 
R~ IMPURE , 
R_BDB; 
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RM3MISPUT 16-Sep-1984 01:51: AX-11 Bliss-32 V4. 

v0e-000 RMSADD_TO_ARRAY 132800=138e 93:34:38 AMS .SREIRMSM] SPUT.B 839: 

ae ) 1 LOCAL 

3; $1 § VBN_SIZE : BYTE, 

: ’ 7 TOTRL SIZE : BYTE; 

; § 585 } Determine what will be the size of the record pointer's VBN. 

F ; 4 38 VBN_SIZE = RMSVBN_SIZE (.IRABLIRB$L_PUTUP_VBNJ); 

; : 0369 ; Set up the pointer size field in the new array element's control byte. 

; H 8 0591 ( gett ADDR)<0, 8> = a. SIZE - 2; 

: 3¢9 09¢ ADDR = .REC_ADDR + 17 

: 531 0594 : aos the record pointer's ID into the new SIDR array element, and 

3 236 0595 i compute the overall size of the new SIDR array element. Both of these 

: oar R298 ! steps are prologue dependent. 

: 535 0598 if .IFABCIFB$B_PLG_VER] LSSU PLGSC_VER_3 

; 536 0599 THEN 

: $37 0600 BEGIN 

: 538 0601 3 os gree ADDR)<0, 8> = - IRABCIRBSW -PUTUP_ID]; 

: 539 060¢ 3 ADDR = .REC_A 

; 540 0603 3 FoTRC SIZE = .VBN_ SIZE +” IRCSC _DATOVHDSZ; 

3; «541 0604 3 

2 at§ 0605 

; 54 0606 BEGIN 

: 544 0607 (. REC_ADDR) <0 on = , TRABCIRBSW_ PUTUP_IDJ; 

> 545 0608 REC ADDR = .REC ADDR + 2; 

; 546 0609 3 — SIZE = SVEN. Bre + IRCSC_DATOVHSZ3; 

: 547 0610 2 END 

; 548 0611 

5 30) Be) Insert the record pointer's VBN into the new SIDR array element. 

3 22 bole § a REC_ADDR)<O, .VBN_SIZE*8> = .IRABCIRBSL_PUTUP_VBN); 

: 33 0616 2 ! Position to the size field of the SIDR, and update it to reflect 

; 228 pele 2 the addition of the new array element. 

: 556 0619 ; REC_ADDR = .IRABCIRBSL_LST_REC); 

s Sor 0620 REC"ADDR = .REC_ADDR + RMSREC_OVHD(-1) = IRCSC_DATSZFLD; 

; $58 0621 2 cs REC -ADDR)<0, T6> = .(.REC EAOD 8) <0, 16> + . TOTAL eit Ft 

; 559 0622 1 END; 
TITLE tv oH 
-IDENT \V04-000\ 
-EXTRN RMSCNTRL_ADDR, RMSCOMPARE_KEY 
“EXTRN RMSCOMPRESS_KEY 
-EXTRN RMSGETNEXT REC. M 
~EXTRN eaae EAD _CONG, RMSRECOMPR_KEY 
-EXTRN SVS VEN “VBN, RMSREC_OVHD™ 
»EXTRN Rast 


.PSECT RMSRMS3,NOWRT, GBL, PIC.2 
0910  8F BB 00000 RMSADD_TO_ARRAY: 


<2 
be) 


kK 1 
RMSMISPUT 16-Sep-1984 251: AX-11 Bliss-32 V4.0-74 P 
v0% RMSADD_TO_ARRAY 278ep- 1982 93:51:59 FANS SReIRASME PUT osoe4 — 
PUSHR #*M<R4,RB,R11> ; 
78 «Ad p 9004 PUSHL 120(IRAB) : 
0000v 007 SBW  RMSVBN_SIZE : 
E 4 § BROA ADDL2 #4, SP : 
86 i 89 Ste SUBB3 #2. VBNTSLGE, (REC_ADDR)* ; 
03 0087 cA F $O12 CMPB sé SC IFAB), #3 _ : 
3 It 0019 BGEQU § 1$ : 
86 0080 ¢ 3 0018 OVB 128(IRAB), (REC_ADDR)+ : 
54 1 02 61 00 0 ADDB #2, VBN_SIZE, TOTAL_SIZE F 
86 0080 4 0 90 6 1$: MOVW \g8(1RAB) (REC_ADDR) + : 
54 1 1 00028 ADDB3 #3, VBN SIZE, TOTAL_SIZE : 
50 1 9A O002F 2S: MOVZBL VBN_SIZE, RO : 
50 08 C4 000 é MULL : 
Be 50 90 78 Ad FO 0003 INSV 120(IRAB), #0, RO, (REC_ADDR) : 
6 4C Ad 00 00038 MOVL  76(IRAB), REC/ADDR : 
51 01 ce 0003F MNEGL #1 : 
00006 90042 BSBW = RM$REC_OVHD ; 
56 FE A046 9E 0004 MOVAB <=2(RO)CREC_ADDRJ, REC_ADDR : 
50 54 9A 000A MOVZBL TOTAL_SIZE. RO ; 
66 50 AO 00040 ADDW2 RO, (REC_ADDR) : 
0910 8F BA 00050 POPR #*°M<R4,RB,R11> : 
05 00054 RSB : 


; Routine Size: 85 bytes, Routine Base: RMSRMS3 + 0000 
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| Woe~080 RMSADD_V3KEY IESepc}9Bs 4:51:98 YAMCTL AL agai wt-Ba04 


<2 
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; 561 3 1 2SBTTL ‘RMSADD rrr & 
: 6¢ ? ¢ : ROUTINE RMSADD_V3KEY (KEY_ADDR) : RLSCOMMON_LINK NOVALUE = ; 1 
> 564 6 § 1! | 
; 565 6 i RMSADD_V3KEY ; 
; 68 3 5 + This routine inserts the key at KEY_ADDR into the bucket at REC_ADDR | 
: 208 8 » oF The contents of the bucket have already been spread apart. The 3] 
; $9 06 ee trailing record is recompressed if necessary. : 
3 i Oe 5 : CALLING SEQUENCE: : 1 
3 8 635 1! RMSADD_V3KEY() 3 | 
; 574 06 § , } 3 1 
3 ST 06 1 ! IMPLICIT INPUTS: | 
: 278 0638 1! IFAB 3 1 
3; 577 0639 1} REC_ADDR 21 
; 578 0640 1! BKT_ADDR 31 
; 579 0641 1! IDX_DFN 3 1 
; $80 Bog 7 IRABCIRB$V_BIG_SPLITJ 3 1 
; «(581 06435 1! IRABCIRB$SV_EMPTY_BKTJ 31 
; eee 0644 1! 3 1 
; 0645 1 ! OUTPUT PARAMETERS: | 
; 584 0646 1! 3 | 
; 585 0647 1! NONE 3 1 
; 586 0648 1! | 
s fer 0649 1 ! IMPLICIT OUTPUTS: 3] 
; 588 0650 1! 3 1 
; 589 0631 1! REC_ADDR points past the inserted key $1 
3 239 Be2g ! IRABCIRBSL_LST_NCMP] may possibly be updated $ | 
; 236 0654 1 ! ROUTINE VALUE: $1 
; 0655 1! 31 
; 594 0656 1! NONE 3 1 
3 299 R922 1! 31 
: 7 658 1 !-- 3 1 
.> Dw 0659 1 3: 1 
; 598 0660 BEGIN 3] 
3; 9 0661 $1 
; 600 +94) MAP 3] 
; 601 066 KEY_ADDR : REF BBLOCK; es | 
: 60 0664 3 | 
; 60 0665 EXTERNAL REGISTER 3} 
; 604 206 _1DX_DFN_STR, | 
: 605 66 R_IF ‘ z | 
; 606 668 R-REC_ADDR_STR, 31 
3 607 0669 R~BKT-ADDR-STR, 31 
; 608 0670 R_IRAB_STR; 23 
; 609 0671 5 | 
: 610 067 GLOBAL REGISTER 3 | 
3; 6611 534 R_BDB, :) 
; 612 674 R~ IMPURE, 3 
; «61 75 RAB; 3) 
: 614 67 3 | 
3; 615 67 IF NOT .IDX_DFN CIDX$V_IDX_COMPR] 3 1 
3 616 8 THEN $1 
3; 61 67 31 


m1 
RMSADD_V3KEY 1erSep- 1984 13:01:09 EAMS.SRCIAASMESPUT 03071 Page hy vo. 


61 
61 


; 0 
$ 0 0 
; 1 0 
; ¢ 0 
; 0 
; 644 0 
$ 5 0 
: 6 0 
3 7? 0 
; 8 0 
; 9 0 
; 650 0 
; 651 0 
: $28 0 
; 65 0 
> 654 0 
3 699 0 
; 636 0 
3 0 
; 658 0 
: 659 0 
; 660 0 
; 0 


} Fixed length index key. 


ao 


BEGIN 
REC ADDR = RMSMOVE (.IDX_DFN CIDX$B_KEYSZJ, .KEY_ADDR, .REC_ADDR); 


tat 


! Compressed index key 
First fill in the Length and compression count 


RMSCOMPRESS_KEY (.KEY_ADDR); 
Now move in the new key including the two bytes of compression overhead. 
RMSMOVE (.KEY_ADDRCKEY_LENJ + 2, 
-KEYADDR 
-RECTADDRS ; 
! Fix up next record (front compression might change). This will be done 
! only when a single a key is to be added, or when the second of two keys 


! is being added. A key must also trail the key just inserted for this 


' 
1 
! 
recompression to be performed. 
I 
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7 
64 70 : 
1 708 F (NOT .IRABCIRBSV_BIG_SPLIT] OR .IRABCIRBSV_EMPTY_BKTJ) 
64 705 (.REC_ADDR + .REC_ADDRCKEY_LEN] + 
o 188 oni LSSU .BKT_ADDR + .BKT_ADDRCBKTSW_FREESPACE)) 
1 A RMSRECOMPR_KEY (.REC_ADDR, .REC_ADDR + .REC_ADDR CKEY_LEN] + 2); 
64 710 ! If the key to be added is the first of two keys (from a multibucket split) 
64 711 ! and the front compression of the ney just added is 0, increment the pointer 
ats ' to the Last noncompressed key to this key to make the determination of the 
at front compression of the second of the two keys easier. 
2 if ;,/RABCIRBSV_B1G_SPLIT AND (.REC_ADDRCCMPR_CNT] EQLU 0) 
ats IRABCIRBSL_LST_NCMP) = .REC_ADDR; 
ahs Reset REC_ADDR to point to the key which follows the key(s) just inserted 
731 REC_ADDR = .REC_ADDR + .REC_ADDR CKEY_LEN] + 2; 
661 7 RETURN 
666 724 
66 725 END; 
0910 8F BB 00000 RMSADD_V3KEY: 
PUSHR #*M<R4,R8,R11> : 0624 
14 1c A? 3 £0 00004 BBS #3, 28(1DK_DFN), 1% : 0677 
6 DD 00009 PUSHL REC_ADDR ; 0683 
14 AE DD 0000B PUSHL Key ADDR 3 
7E 20 A? 9A QOODE MOVZBL 32(IDX_DFN), -(SP) 3 


& 


A Ry ? 
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RM3MISPUT 16-Sep-1 AX-11 Bliss-32 V4.0-74 P 
FOee O80 RMSADD_V3KEY 14-Sep 0-1 3be tet +38 RMS. SRCJRM3MI SPU Bao, _— HB 
00006 3 1 BSBW  =s RMS MOVE 
5E ¢ ¢ O18 ADDL2 @# " SP 
. c 4 O18 Bea’ Ha —— 0682 
50 10 A 1D 1$ MOVL 90 
00066 Hi 00 1 BSBW ee OUDRESS. _KEY ™ 
6 DD 00024 PUSHL REC_ ADDR 0696 
14 AE pd 99 $ PUSHL KEY"A 0695 
7E 18 A MOVZBL 9 ake’ ADDR, -(SP) 0694 
6E £0 002D ADDL re TSP) 
00006 9930 SBW ss RMSMOVE 
5 : co B88 ADDL2 12, 3F 
05 44 «OA E1 00036 C 
22 44 AD 6 el 9005 BBC #6, 68(1 
50 66 9A 00040 2S: MOVZBL (REC_ADDR), RO 
51 02 A046 9E 0004 MOVAB 2 (ROJCREC_ADDRI, R1 
50 06 AS 3C 00048 MOVZWL 4(BKT_ADDR), RO’ 0706 
50 33 CO 0004¢ ADDL2  BKT_ADDR, RO 
50 1 D1 0004F CMPL  R1,~RO 
OE 1€ 00052 BGEQU§ 3$ 
50 66 9A 00054 MOVZBL (REC_ADDR), RO 0708 
51 02 A046 9 00057 MOVAB 2 (ROJCREC_ADDRI, R1 
50 56 DO 0005¢ MOVL §REC_ADDR,~RO 
00006 30 0005F BSBW  $RMSRECOMPR_ KEY 
OA 44 Ad 02 a 0006¢ 3$ BBC #2, 68(IRAB), 4$ 0715 
01 A6 95 0006 TSTB —«- 1 (REC_ADDR) 
05 12 0006A BNEQ 4$ 
0098 9 56 D0 0006C MOVL  REC_ADDR, 152(IRAG) 0717 
50 66 9A 00071 4$ MOVZBL (REC_ADDR), 0721 
56 02 A046 YE 00074 MOV 2(ROSCREC_ADDRJ, REC_ADDR 
0910 8F BA 00079 5$ POPR #*M<R4,RB>R11> 0725 
05 0607D RSB 


; Routine Size: 126 bytes, Routine Base: RMSRMS3 + 0055 
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RM3MISPUT Bes -1984 01:51: AX-11 Bliss-32 V4.0-742 Pp 16. RMS! 
ral tt RMSADD_V3VBN 12780871382 93:31:58 RMS SREIRA MISPUT.B32:1 - aS | v04- 


: 665 07 6 1 XSBTTL 'RMSADD y3VBN | 
: 068 BY { : ROUTINE RMSADD_V3VBN (VBN) : RLSCOMMON_LINK NOVALUE = 
; 668 0709 1 | 

: 293 3f ? : RMSADD_V3VBN | > Re 
> 671 07 ¢ 1 | This routine adds a VBN to the chain at the end of the bucket. | 
3 ore 07 1! If the VBN is longer than the current VBN size all VBNs grow 

: of? Bf : } by the appropriate number of bytes. 
; 675 ie ' CALLING SEQUENCE: | 
° ' ; 

3 ort O73 : RMSADD_V3VBN(.VBN) | 
: 679 0740 IMPLICIT, INPUTS: | 
: 681 0742 1 BKT_ADDR 

: 68 0743 1 IDX~DFN 

: 68 0744 1! . 

: 684 0745 i QUTPUT PARAMETERS: 

; $86 0747 1! NONE 

> 687 0748 1 | 
; 688 0749 i IMPLICIT OUTPUTS: 

: 690 0751 1: 

; 691 O79 i ROUTINE VALUE: | 
: 69 0754 1: NONE | 
> 694 0755 1/3 | 
: 695 0756 1 i-- | 
: 696 0757 1 
: 697 0758 2 BEGIN 

: 698 0759 2 

: 699 0760 3 ACRO 

3 700 0761 OFFSET = 0,0,16,0 2; 

> 70 0763 ; EXTERNAL REGISTER 

toe byes 5 RTIRAB STR | 
: 198 bree 5 R-REC ADDR _STR. | 
; 707 0768 2 R7BKT_ADDR_ STR; 
: 109 BEG 3 cLowat pecisrer | 
> 711 Ore R-RAB, | 
: ng fae R_ IMPURE; 
> 714 0775 LOCAL 

: 715 276 NEW_SIZE, 
; rig 0777 OLD7SIZE; 
: 718 779 EW.SIZE = RMSVBN SIZE. (YBN): | 
; ah 780 ULDZSIZE = .BKT_ADDR CBKT$V_PTR_SZ] + 2; | 
: 721 $782 IF .NEW_SIZE GTRU .OLD_SIZE 


] 
2 | 
RM3MISPUT 16-56 1984 01:51: AX-11 Bliss-32 V4.0-742 Page 17) 
yoe~000 RMSADD_V3VBN 12-8 08-138 93:31:59 RMS. SREIRA MISPUT.B52;1 ° sail 
3; £ 783 THEN | a. 
3 © g $F 4 3; 7 
: 724 7 5 ! We need to shuffle all of the VBNs down 3} 
; f 5 ores First figure out where to move them. : y 
: $59 0788 BEGIN | 3] 
: 728 0789 | 71 
s 2 0790 CAL 5 1 
; i 0791 OLD_END : REF BBLOCK, a 
: 751 O78 ; NUM_RECS, $ } 
3 ree 079 NEW_END, 3 7 
; a3 0794 ; SAVE; | : 1] 
: 734 0795 | 3:1 
; 735 0796 3 op ey -BKT_ADDR + (.IDX_DFN CIDX$B_IDXBKTSZ] * 512) = BKTSC_ENDOVHD; s 7 
: 736 0797 3 NUMRECS = (.OCD END = (.BKT-ADDR+.OLD_END COFFSETJ)) / .OLD_SIZE; 1 
; oe Ores NEWLEND = * 01 END = (.NUM_RECS * .NEW SIZE); | st 
; 739 0800 3 IF .BKT_ADDR CBKT$B_LEVEL] EQLU 0 3 7 
; 740 0801 3 AND™.IDX_DFN CIB¥$V_DUPKEYS) a7 
> «741 44 3 37 
3; 742 0803 3 NEW_END = .NEW_END = 4; 7 
; 743 0804 3 s 7 
: 744 0805 3 OLD_END COFFSET] = .NEW_END - .BKT_ADDR - 1; 31 
: 745 0806 3 9 
: 746 0807 3 Now actually move them 3 7 
> 747 0808 3 71 
; 748 0809 3 Save = .I]RAB CIRB$L_REC_COUNT]; $ 
: Hs edt H IRAB CIRBSL -REC_COUNT] = .NUM “RECS - 1; : : 
s Te" 0812 3 WHILE .IRAB CIRB$L_REC_COUNT] GEQ 0 3 7 
: 752 0813 3 DO 31 
: 753 0814 4 i 
: 754 0815 4 (.NEW_END) <0,8 * .NEW_SIZE> = .(RMSCNTRL ~ABPRL3 <0 8*.OLD_SIZE>; 3 7 
s 33 0816 4 IRAB CIRB$L_REC_COUNTJ™= .IRAB CIRB$L_REC_COUNT] {; s 7 
s 0817 4 D = .NEW_END + .NEW_SIZE 3 7 
: 757 0818 3 ; 3 Y 
: 758 0819 3 37 
: 759 0820 3 IRAB CIRBSL_REC_COUNT] = .SAVE; 37 
: 760 0821 3 37 
3 él bass : Update the VBN size | : } 
; 082% 3 BKT_ADDR CBKTS$V_PTR_SZ] = .NEW_SIZE - 2 | : } 
; 0826 : END; 71 
; 0827 a 
; 0828 ! Actually add the new VBN 3 
; +94 ! .4 
: 0830 BEGIN | 4 
; 0831 | 33 
3 te ; LOCAL 3 7 
; ti ADDR; : 1 
3 834 3 7 
° 0835 ADDR = RMSCNTRL_ADDR(); 3 
3 bass (.ADDR) <0,.NEW_SIZE * 8> = .VBN : ! 
3 0838 § END; ! Of local ADDR : 7 
3 0839 3% 


D 2 
RM3MISPUT 16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-742 Page 18 
VOe~000 RMSADD_V3VBN 13-88-1382 4381 158 RMS. tae saR ini eput: B32;1 ° dg 
; 779 0840 1 END; | 3 } 
: 1 
| s 1 
; ! 
091C 8F BB 00000 RMSADD_V3vBN: | 4 
PUSHR #*M<R2,R3,R4,R8,R11> : 0727 | : 1 
SE 0c C2 00004 SUBL2 #12, SP : 31 
24 —sOAE pp 00007 PUSHL VBN + 0779 3:1 
0000V 30 OO00A SBW RMSVBN_ SIZE : $7 
SE 04 CO 99000 ADDL2 #4, SP : 71 
6E 0 DO 00016 MOVL RO. re : 31 
52 0D AS 02 03 EF 00013 EXTZV # 5 “tbr ADDR), OLD_SIZE : 0780 3 7 
52 02 ¢6 00019 ADDL2 #2. SIZE : 7 
52 6E D1 0001C CMPL = NEW_. gr7e OLD_SIZE + 0782 .% 
7D 1B OOO1F BLEGU 4$ ~ : 31 
50 16 A? 9A 00021 MOVZBL 22(IDX_DFN), RO : 0796 71 
50 50 09 78 90025 ASHL RO : 31 
50 FC A045 YE 00029 MOVAB 74 iRo) Cat -ADDRI, OLD_END : : 1 
51 60 3C 0002E MOVZWL (OLD_END + 0797 71 
51 55 C9 00031 ADDL2 BKT_ BOR. “al : 31 
51 50 51 C3 00034 SUBL3 1, OLD_END, R : : 1 
51 52 C6 00038 DIVL OLD_SIZE, NUM_RECS 3 3 7 
53 51 6F C5 00038 MULL3 NEWTSIZE, NUM-RECS, R3 + 0798 31 
54 50 53 C3 0003F SUBL3 R3, OLD_END, NEW_END : 31 
0c Ad 95 00043 TSTB =: 12 (BKT_ADDRS : 0800 34 
07 12 00046 BNEQ  1$ : : 1 
03 1¢ = A7 «ES 00048 BLBC 28(IDX DEN, 1$ > 0801 : 1 
54 04 ce 0004¢ SUBL2 #4, NE@_END : 0803 31 
53 54 55 C3 O0004F 1$ SUBL3. _BKT ADDR NEW_END, R3 : 0805 71 
60 53 01 A3 00053 SUBW3 #1,7R3, (OLD_END) 3 2% 
08 AE 0094 ¢9 DO 00057 MOVL 148(IRAB), SAVE : 0809 31 
0094 9 FF Al 9E€ 0005D MOVAB =1(R1) tat 1haB) : 0810 31 
53 0094 C9 9E 00063 MOVAB 148(R95, R : 0812 :1 
04 AE 6E 03 78 00068 ASHL. #3, NEW.SIZE, 4(SP) + 0815 : 1 
52 08 C4 00060 MULL2 #8. R2 ~ : :1 
63 D5 00070 28: TSTL (R$) : 0812 31 
1A 19 00072 BLSS 3$ 3 s 7 
0000G 30 00074 BSBW RMSCNTRL_ADDR ; 0815 Bp 
51 60 52 00 EF 00077 EXTZV #0, R2, TRO), R1 ; : 1 
64 04 AE 00 51 FO 0007C INSV R17 4(SPS, (NEW_END) ; 71 
53 0094 C9 44 00082 MOVAB RAG(ROS. R3 : 0816 : 1 
63 D 008 DECL _(R3) : 71 
54 of CO 00089 ADDL2 NEW_SIZE, NEW_END + 0817 | 31 
E2 11 0008C BRR 3 : 7 
0094 9 08 AE 09 OO8E 3$: MOVL. SAVE, 148(IRAB) + 0820 71 
50 6E 02 C3 00094 SUBL3 #2, i SIZE, RO + 0824 : 1 
OD AS 02 03 50 #0 00098 INSV RO, # « {3cBKT _ADDR) F 31 
00006 30 0009E 4$: = BSB RMSCNTRL ; 0835 | 21 
51 50 b0 OOA1 MOVL R DDR™ : 31 
50 BE 03 78 O00A4 ASHL « NEM SIZE, RO > 0836 | 51 
61 50 00 20 AE FO OOA8 INSV , #07 RO, (ADDR) : :1 
5E 0 CO OOOAE ADDL2 Hi > 0840 31 
091C F BA 000B1 POPR #°M<R2,R3,R4,R8,R11> ; 3 1 
05 00085 RSB : 3 : 
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Routine Base: RMS$RMS3 + 00D3 


RMSADD_V3VBN 
182 bytes, 


; Routine Size: 


SOU 


nN 


ee 
RMSMISPUT 16-Sep-1984 2:51:28 AX-11 Bliss-32 V4.0-742 Page 20) 
v0e-000 RMSBKT_SORT 14- eet yi 9550138 RMS. SRCIRM 3m SPUT.B32;1 " a 04 
; 781 0841 1 XSBTTL 'RMSBKT_S | 71 
i 28 O84¢ 1 GLOBAL ROUTINE RASEKT _SORT (BKT_ADDR) : RLSRABREG_7 = | 3 3, 
; 78 O86 1 ee | 
; 784 44 1 !44 3), 
: 785 pee? 1! : $Y, 
; 786 0 +8 1 ! FUNCTIONAL DESCRIPTION: | i | 
; 787 084 1! 3 
: 788 0848 1 ! this routine scans the bucket, makes a table of all used ID : }, 
; 789 0849 1 ! and then updates the NXTRECID and (STRECID fi elds to vo Rot the existence | ; 3, 
; £30 b620 | ; of the Lowest range of un-used ID's available | 7 
; 79 O82¢ | | CALLING SEQUENCE: | 2), 
; 79 53.1! RMSBKT_SORT (BKT_ADDR) 3 1 
s 19% peed 7% 3 3, 
; 795 0855 1 ! INPUT PARAMETERS: _ : 1, 
: 796 0856 1! BKT_ADDR = pointer to bucket to be searched for ID's BS 
: 797 0857 1 | 21 
; 798 0858 1! IMPLICIT. INPUTS: 2), 
; 799 0859 1! IDX_DFN = pointer to index descriptor : ), 
; 800 0860 1! JRAB - pointer to internal RAB 3 i, 
; 801 0861 1! IFAB = SY 
; 80 086g 1 71 
; 80 086 1 ! OUTPUT PARAMETERS: BS 
3 0864 1! NONE $1, 
; 805 0865 1! 3 1, 
, § 6866 1 ! IMPLICIT OUTPUTS: $7 
; 807 0867 1! NONE | 2%, 
: 808 0868 1! ..¥ 
; 809 0869 1 | ROUTINE VALUE: | : 1, 
; 810 0870 1! low bit set if success (at least one ID was found) 2 
3; 811 0871 1! low bit clear if all ID's in use af 
g aig 0872 1! re 3 
; 81 087 1 ! SIDE yt 3h) 
; 814 0874 1! TRECID is set to lowest ID available 
; ai? + $44 : USTRECID is set to highest contiguous ID available after NXTRECID 
; 817 0877 1 !-- 
; 818 0878 1 
> 819 0879 2 BEGIN 
: 820 0880 2 
: 821 0881 Pp 
; 822 088 BKT_ADDR : REF BBLOCK; 
: 823 088 
3 ; 4 pees EXTERNAL REGISTER 
> 825 0885 R_IDX_DFN, 
: 826 0886 is e 
: 827 0887 R7IRAB: | 
; 828 0888 | 
b4 a6? 0889 GLOBAL REGISTER 
: 830 0890 R_REC_ADDR_STR; | 
: th 0891 
3 3 089 LOCAL 
; 83 9 BIT_NUM, | 
; te me BITILEN; 
: 836 96 ' create 8 longword array for table of used ID's 
; 837 0897 ! 


2 

18-58 -1984 01:51: AX-11 Bliss-32 V4.0-74 
RMSBKT_SORT 1228071382 93:31:35 RMS .SRCIRM3MISPUT.B32; 
H 9 

; § $99 STACKLOCAL 

; 840 900 USED_IDS : VECTOR (8); 

; 841 901 

; 84 on¢ LOCAL 

; «484 90 EOB; 

; 844 904 

; 845 905 DECR I FROM 7 19 0 dO 

; 846 by USED_IDSC.1) = 0; 

; ste 90 

; 48 0908 BEGIN 

3 5e8 8484 

; 850 910 e 

; 4851 0911 USED_IDS : BITVECTOR (256); 

: S26 b3i6 

3; & 091 REC_ADDR = .BKT_ADDR + BKTSC_OVERHDSZ; 

2 B20 Bate EOB™= .BKT_ADDRIBKTSW_FREESPACE)] + .BKT_ADDR; 

3 B26 Bee : scan records in bucket. set bit in bitvector for those id values found. 
; 858 0918 WHILE .REC_ADDR LSSA .E0B 

; 859 0919 

; 0920 4 BEGIN 

; 861 0921 4 

; B66 09 ¢ 4 GLOBAL REGISTER 

; 86 09 4 R_RAB, 

3; 864 0924 4 R_ IMPURE; 

; 865 base 4 

; 866 0926 4 USED_IDSC.REC_ADDRCIRC$B_1D]] = 1; 

: 867 0927 4 RMSGETNEXT_REC(); 

; 868 0928 END; 

; 869 0929 

; 870 0930 USED _10StQ) = 0; ! flag set when a free id found 
; 871 0931 2 USED_IDS(255) = 1; ! make sure Last one always set 
; ¢ 093 END; ! of USED_IDS as bitvector 
: 093 BIT_LEN = 31; 

3 a ba BIT_NUM = 1; 

: 876 0936 ! now search the bit array for the first clear bit (that serrospents to 
; 877 0937 ! an unused id value) one longword at a time. when found, check the 

; 878 0938 ! remaining bits in that longword looking for a used id. if none found 
: 879 0939 ! there, continue ouens he remaining longwords in the array to 

3 B20 mee determine the extent of the unused id values. 

: bbe O04 INCR I FROM 0 TO 7 DO 

; 884 0944 IF NOT .USED_IDS 

: BBs 0946 BEGIN 

; bs $90 

: 888 0948 IF NOT FFC(BIT_NUM, BIT_LEN, USED_IDSC.1], B1T_NUM) 

s 9 949 THEN 

; 890 950 4 BEGIN 

3 91 951 4 BKT AGDACERT SO _WKTRECIOD = .1*32 + .BIT_NUM; 

; 3 336 4 USEB_IDS<0, 1>7= 1; 

: 89 953 4 BIT_CEN = $2 - .B1T_NUM; 

; 894 954 4 


1-sep-19 4 94:31:88 ee Bliss-32 V4.0-74 Page Aa 


RMSBKT_SORT 14-Sep-1984 RMS .SRCIRM3MISPUT.B32; >| 04 

; 895 955 4 IF NOT FFS(BIT_NUM, BIT_LEN, USED_IDSC.1J, BIT_NUM) 3 7, 
; 96 926 4 THEN cs ” = rs . 7 
3; 89 9 BEGIN | a Y, 
3 38 9 8 BKT_ADDR(BKTSB_LSTRECID] = .1*#32 + .BIT_NUM = 1; 3 3, 
; \) EXITLOOP; $1, 
: 900 960 31 
3; Wi 0961 END $ 3, 
3 o0¢ 308 4 LSE ? § 
; 90 963 4 BIT_LEN = 32; 37, 
; 904 & Bs 
; 905 965 END; 31, 
; 308 966 eS 
; 96/ BIT_NUM = 0; | 3%; 
; 908 0968 END | ey 
; 909 969 ELSE 7 1. 
: 910 970 31, 
; 911 0971 IF NOT FFS(BIT_NUM, BIT_LEN, USED_IDSC.1J, B1T_NUM) .. 
; 92 097 THEN ee 
; 314 bore BF ADDREB T$B_LSTRECID) 1*32 + .BIT_NUM = 1 : 1 
>: 915 0975 EXITLOOP; ‘ r 3 1, 
: 916 0976 37 
: 917 0977 END Bs 
; 918 0978 $Y, 
: 919 0979 BEGIN 3 1, 
; 920 0980 BIT_LEN = 32; 31, 
> 921 0981 BIT-NUM = 0; eo 
i 98 098 END; 1 
; Ve 098 eH 
: 924 0984 ! if this fs clear, no free id's were found. if set, at least one BS 
: oS. 0985 ! is ava‘iavle. 3 1, 
: 926 0986 i | 1 
3 Per 0987 RETURN .USED_IDS(OJ; ;s 
; 928 0988 2 re S 
; 929 0989 1 END; : } 
3:1, 

5%, 

| : \: 

’ z 4 

094C 8F 8B 00000 RMSBKT_SORT:: } 3 1 

PUSHR #*M<R2,R3,R6,R8,R11> : 0842: s } 

5 20 3 00004 UBL2 #32, SP : : 

50 07 D 90 07 OVL #7, 1 : 0905 3 1 

6E40 D4 OOOOA 1$: CLRL USED_IDSC1) : 0906 31 

FA 50 F4 00000 SOBGEQ I, 18 : 31 

52 38 «=6AE «OO 910 MOVL BKT_ADDR, R2 : 0913 3 1 

36 OE Ad SE 00014 VAB 14(R2), REC_ADDR : 71 

5 04 A2 3C 00018 MOVZWL 4(R2), EOB : 0914 3 1 

23 52 CO O001C ADDL2 R2, E : 3 1 

5 56 (01 1F 2$ CMPL REC_ADDR. E0B : 0918 31 

OD 1€ 2 BGEQU 4 : 7 1 

50 01 Ab 9A 4 MOVZBL 1(REC_ADDR) RQ : 0926 31 

00 6E 5 5 028 BBSS RO, USED IDS, 3$ : 31 

00006 O2c 3$ BSBW = RMSGETNERT_REC > 0927 : 1 

FE 11 0002F BRB 2$ : 0918 31 

6E 1 8A 00031 4$ BICB2 #1, USED_19S : 0930 31 
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*RMSBLD_IDX_REC' 


C 
ROUTINE RMSBLD_TDX_REC (REC_SZ) : RLSCOMMON_LINK NOVALUE = 


FUNCTIONAL DESCRIPTION: 


This routine builds an index record in the buffer. It will do one of the 
following: 


0) Call RMSV3_IDX_REC to do everything for prologue three index 
buckets. 


1) replace — value of existing down pointer with the new high key 
value (in keybuffer 2) of the original bucket (described as vbn_left) 
and use that key value along with the value of vbn_right to create 
anew index record pointing to the right hand bucket of the split. 


2) same as the above except create another record between the two 
described ay the contents of keybuffer 3 and vbn_right. this 
record points to the middle record of a 3 or 4 bucket split. 


3) as an option on the first situation (1), omen the down 
pointer to be the value of vbn_mid if the current down pointer matches 
the value in vbn_left. 


4) build only the left hand part of the possible pieces described above 
and make the break just before the potential new middle bucket pointer. 


5) build the part remaining after only doing 4). 


Any modifications to this code should be done only after thoroughl 
understanding the interactions between this routine, RMSRECORD_SIZE, 
and RMSSPLIT_EM. 


CALLING SEQUENCE: 


RMSBLD_IDX_REC (REC_SZ) 


INPUT PARAMETERS: 


REC_SZ = total size of record to be inserted 


srwuict? INPUTS: 


EC_ADDR = points to location in buffer where record is to be built 


IRAB Cvbn_left] - left hand cortgtagt) bucket in split. zero if 
gnly right hand part of record_to be built. i 

vbn_mid] - possible middle bucket in 3 or 4 bucket split 

vbn_right] = right hand bucket of split 

empty_bkt] - left hand bucket is dead, i.e., no data records 

b - more than 1 new bucket in split 

spl_idx] = only build left hand part of index record 

pee ins] - position of insert of the new record 

eyBuf] - address of keybuffers 


IFAB Ckbufsz] - size of keybuffers 
IDX_DFN Ckeysz] - size of this key 


RAS 
vO4 


SD 


kK 2 
VOerboO. RMSBLD_IDX_REC eet rie See Pe ed ye ee rae” 


; F 1047 1! 3 
3 359 1 8 1 ! OUTPUT PARAMETERS: 3 
; 1049 1! NONE : 
; 991 1 2 ,: 3 
3 838 1051 1 ! IMPLICIT OUTPUTS: 3 
3 ear ! 26 } REC_ADDR = points to first byte beyond record. : 
; 995 ! 34 } ROUTINE VOLNE : 
; 309 1928 1} $ 
; 998 10 1 ! SIDE EFFECTS: F 
; .999 1928 a NONE F 
; 1000 1059 1! $ 
: 1001 1399 1 !-- : 
3 1008 1061 1 3 
; 100 1996 BEGIN $ 
: 1004 106 ; 
: 1005 1064 EXTERNAL REGISTER 5 
3 1908 1065 R_BKT_ADDR_STR, 3 
: 100 1066 R_REC_ADDR_STR, 3 
: 1008 1067 R_IRAB_ST $ 
: 1009 1068 R-1DX_BFN STR, ; 
: 1010 1069 R_IFAB_STR; 3 
3 1011 1070 3 
rs Isis 1071 GLOBAL REGISTER ‘ 
3; 101 1076 R_BDB, ; 
3 1014 107 R~ IMPURE, ’ 
3; 1015 1074 § R_RAB; : 
: 1016 1075 F 
3; 1017 1076 2 IF .1FAB CIFBSB_PLG_VER] EQLU PLGSC_VER_3 ; 
; 1018 1077 THEN 3 
3: 1019 1078 3 
: 1020 1079 ! Prologue three index records. They basically 3 
3; 1021 1080 ! have noening in common with pre-prologue three : 
3 ise 1081 ! index records. Just call the routine that : 
: 102 1088 ! handles them and get out. : 
3: 1024 108 ! 3 
3: 1025 1084 BEGIN 3 
: 10 $ 1085 : 
; 10 1086 RM$V3_IDX_REC (.REC_SZ); 3 
: 1028 1087 RETURN 3 
3 1029 1088 END; 3 
: 10350 1089 3 
$ 193) en ! first a we have to build if present is the new key for the left : 
3; 1032 1091 ! hand bucket this will be zero only when splitting up index record when 3 
3; 1033 1996 ' two new ney values are required - currently ‘empty’ buckets (i.e., 3 
3 1034 109 ' buckets which end up without any records in them after a split) are not : 
3; 1035 1094 ! removed from the index : 
3 1038 1095 ! 3 
: 103 1 a8 é 
; 1038 109 IF .IJRABCIRBSL_VBN_LEFT3 NEQ 0 3 
3; 1039 1998 THEN 3 
3: 1040 1099 ; 
3; 1041 1100 ! the bycket has already been spread apart but the index record we 3 
; Hk 1101 ! positioned to still exists where we found it, so uelne the existing : 
: ine? 1198 pointer, change the key value to the high key of VBN_CEFT : 
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1$-se -1984 01:51: AX-11 Bliss-32 V4.0-74 
12-80-1384 93:31:38 LRMS .SRC RM mi SPUT 93044 
BEGIN 
! check for empty bucket situation, compare down pointers before 
deciding whether to modify down pointer or not 
1F 0g, RASC IRBSY EMPTY OKT 
BEGIN 
BUILTIN 
AP; 


AP = 1; ! set for index level 
IF .IRABCIRBSL_VBN_LEFT] EQLA RMSRECORD_VBN() 
current down pointer matches so modify down pointer 


THEN. 
RMSMOVE_IN_VBN(.IRABLIRB$L_VBN_MIDJ) 


REC_ADDR = .REC_ADDR + .REC_ADDRCIRCS$V_PTRSZ] + IRC$C_IDXPTRBAS 
+ IRCSC_IDXOVHDSZ; ! advance past pointer 


if wag - IRABCIRB$V_BIG_SPLIT) 
RETURN; ! no more to do, quit 
END 


REC_ADDR = .REC_ADDR + .REC_ADDRCIRCSV_PTRSZ] + IRCSC_IDXPTRBAS + 
IRCSC_IDXOVHDSZ; 


} move in key from keybuffer 2 
REC_ADDR = RMSMOVE(.IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(2), .REC_ADDR); 


! We move in the VBN from IRBSL_VBN_RIGHT if and only if this is a 
one-pass multi-bucket empty bucket split case. 


IF (. IRABCIRBSV_EMPTY_BKT) 
- IRABCIRB$V_BIG_SPLITI ‘ 
rene" . IRABCIRBSV_SPL_IDXJ) 
RMSMOVE_IN_VBN(.JRABCIRBSL_VBN_RIGHT)); 
: We are done if this was a empty bucket split case 
IF .IJRABCIRBSV_EMPTY_BKT) 
RETURN; 
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14-Sep-19 RMS. SRC 


At this point all bucket splits involving onpty buckets have completed 
except for the second pass of the two-pass multi-bucket with empty 
bucket split case. 


We continue for all other cases with one exception. When the insertion 
point is found to pe at the split point, two passes must be made - one 
to update the old bucket, and the second to update the new bucket. If 
this is the first pass to update the old bucket components we do not 
continue unless a multibucket split had occurred, two and only two 

index records .ould fit in an index bucket, and the split point requires 
both of them to be moved to the new bucket to make room for the two new 
index records. In all other “first pass’ situations we do not continue. 


F NOT . IRABCIRBSV_SPL_ IDX] 


(. IRABCIRBSV_SPL_IDXJ 
AND .1RAB TRESV B1G_sht JT) 
AND .IRABCIRBSW_POS_INS] EQLU BKT$C_OVERHDSZ) 


N 
BEGIN 


! If a multibucket split occurred, the middle VBN and its corresponding 
! key are inserted into the current index bucket with two exceptions. 

! If this is the second pass of a two-pass multibucket split case where 
! both records had to be put in the ol@ index bucket, or of a two-pass 
! multi-bucket empty bucket split case, then this bucket updating does 
not take place. 
I 


F .IRABLCIRB$V_B1G_SPLIT) 
(, IRABLIRB$L_VBN_MID] NEQU 0) 
THEN 


BEGIN 
RMSMOVE_IN_VBN(.IRABCIRBSL_VBN_MIDJ); 
} move in key from keybuffer 3 


REC_ADDR = RMSMOVE(.IDX_DFNCIDX$B_KEYSZ), 
KEYBUF_ADDR(3), .REC_ADDR); 


' Unless this is the first pass of one of the three two-pass index 

' bucket split cases, we always swing the pointer for VBN right. 

! If this is the first of two passes, we do not suing the pointer 

! because this pass is used to update the old index bucket components 
' and VBN_RIGHT must be swung during the second pass when the new 
index components are updated. 
I 


4 ~w . IRABCIRBSV_SPL_1DX) 
on RMSMOVE _IN_VBN(. IRABCIRBSL_VBN_RIGHT)); 
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vO4-000 RMSBLD_1DX_REC 1e=88p-1986 43:01:99 ERMS-SRCIRMSMI SPUT.03071 dow 


0914  8F BB 00000 RMSBLD_IDX_REC: | 
PUSHR RI1> ; 0991 


03 00B7 CA 91 00004 CMPB Waecithas es : 1076 
«2 Bo Des 
00 bv 4 00E BSBW Rass IDX_REC : 
SE 4 tO 0001 ADDL2 #4, SP : 
0 11 00014 BRB 4$ + 1084 
51 0088 c9 09 0016 1$: MOVE 136C1RAB), R1 + 1097 
27 44 Ad 6 €1 Meh BBC #6, 68(IRAB), 5$ + 1110 
5¢ 1 00 00 : MOVL #1, AP : 1117 
00006 30 000 BSBW  RMS$RECORD_VBN + 1119 
50 51 D1 00028 CMPL = R1, RO : 
OA if 0028 BNEQ : 
52 0090 ¢9 p 00020 MOVL 144(JRAB), R2 > 1124 
0000v 30 90038 BBW RMSMOVE_IN_VBN : 
50 66 02 00 EF 90037 2$: EXTZV. #0, #2, (REC_ADDR), RO + 1126 
56 03 A046 3 0003¢ MOVAB 3(RO)CREC_ADBRJ, REC_ADDR > 1127 
0D 44 Ad 0¢ E 00041 3$: BBS W2, 68(IRAB), 6$ : 1129 
0083 31 00046 4$: BRW 11$ + 1131 
50 66 02 00 EF 00049 5$: EXTZV #0, #2, (REC_ADDR), RO + 1135 
Ya 03 A046 SE 00046 MOVAB 3(RO)CREC_ADBRJ, REC_ADDR : 
56 DD 00053 6$: PUSHL REC ADDR : 1140 
50 00B4 CA 3C 00055 MOVZWL 180TIFAB), RO : 
60 8940 9F O005A USHAB @96(IRAB) CROJ : 
7E 20 9A 0005 MOVZBL 32¢(IDX_DFN), -(SP) ; 
00006 30 0006 SBW s- RMSMOVE : 
SE CO 0006 ADDL2 #12, $ : 
56 6 DO 00068 MOVL 0, REC_ADDR : 
16 44 Ad 06 €1 0006B BBC #6. 68(IRAB), 8$ > 1145 
0c 44 A 02 €1 00070 BBC * 68(IRAB). 7$ + 1147 
08 44 AS E8 00075 BLBS  68(IRAB), 7$ + 1149 
52 008C C9 DO 00079 MOVL 140(IRABS, R2 + 1151 
0000v 30 O007E BSBW RMSMOVE_IN_VBN : 
46 44 Ad 06 £0 90081 7$: BBS #6, 68(IRAB), 11$ : 1155 
0B 44 Ad E9 00086 8$: BLBC  68(IRAB), 9$ > 1174 
3D 44 AD 02 £1 0008A BBC 2 68(IRAB), 11$ + 1177 
OE 48 Ad Bi 0008 CMPW = 72 IRAB), #14 : 1178 
37 12 00093 BNEQ 118 : 
26 44 Ad 08 E1 00095 9s: BBC e 68(IRAB), 10$ > 1189 
0090 C9 D5 O009A TSTL  144CIRAB) : 1191 
20 13 0009 BEQL 10$ : 
52 0090 C9 p OOA MOVL  144(IRAB), R2 > 1194 
0000v OOA BSBW  RMSMOVE_IN_VBN : 
56 DD 0008 PUSHL gC ADDR + 1199 
50 00B4 CA 3C OOOAA MOVZWL i1S80TIFAB), RO : 
60 8940 F OOOAF PUSHAW 996 (1RAB) ERO) ; 
7E 20 A? OA 0083 MOVZBL 32(IDX_DFN), -(SP) : 1198 
00006 0B BSBW MSMOVE : 
SE ¢ C BA ADDL2 . SP : 
D BD MOVL RO REC_ADDR F 
08 44 AQ E€8 000CO 10$: BLBS  68¢IRABY, 11$ : 1209 
008¢ C9 DO 000C4 MOVL 140(IRABS, R2 : 1 : 
| 
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NEW_SIDR 


XSBTTL 'RMSBLD_NEW 
ROUTINE RMSBLD_NEW 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
This routine builds a new 
CALLING SEQUENCE: 
RMSBLD_NEW_SIDR() 
INPUT PARAMETERS: 
SIDR_SIZE 
IMPLICIT INPUTS: 


IDX_DFN ~ 
IDXSV_DUPKEYS - 
IDXS$V_KEY_COMPR - 
IDX$B_KEYSZ - 


AB 
IFB$W_KBUF SZ - 
IFB$B-PLG_VER - 


AB eo 
IRB$V_CONT_BKT - 
IRB$V_DUP_REY ~ 
IRB$L_KE YBUF - 
REC_ADDR - 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


IRABLIRBSL_LST_RECJ - 
REC_ADDR 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


If the file is a prologue 
have been incremented 


added, then its key w 


p=1984 15:01:09 EANS-SRCIRASMIS 


RMS .SRC M 


SIDR" 
SIDR (SIDR_SIZE) : RLSCOMMON_LINK NOVALUE = 


SIDR using the key found in keybuffer 2. 


- full size of the new SIDR 


address of SIDR bucket 
offset to first free byte in bucket 
next available ID in bucket 


address of index descriptor 

if set, duplicate alternate keys are allowed 
if set, SIDR key compression is enable 

size of alternate key 


addres of IFAB : 
size of each of the contigious keybuffers 
prologue version of file 


of IRAB_ : , 

bucket is a continuation bucket 
not first SIDR with this key value 
of contigious keybuffers 


address 
if set, 
if set, 
address 


address of point of insertion of new SIDR 


of new SID 


address R 
of first byte following new SIDR 


address 


Vor 2 file, BKT_ADDRCBKTSB_NXTRECIDI will 
y 


If key compression is enabled, and a SIDR follows the new SIDR being 


e re-compressed, and the SIDR bucket's 


freespace offset pointer updated appropriately. 


NeW_SIDR 
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BEGIN 
EXTERNA 


@ 
monwmr~zAr 


LOCAL 
F IRST_ARRAY_ADDR : REF BBLOCK; 


Save the address of the point of insertion of the new SIDR. 
JRABCIRB$L_LST_REC] = .REC_ADDR; 


Create the record control byte, DUP_CNT (if appropriate), and record ID 
fields for the prologue 1 or 2 SIDR. It is not necessary to do this 

for prologue 3 SIDRs because they don't have any of these fields. After 
this step, REC_ADDR will be pointing to the size field of the new SIDR, 
regardless of the file's prologue version. 


1 

i] 

IF ,FABLIFBSB_PLG_VERI LSSU PLGSC_VER_3 
BEGIN 


If duplicate keys are allowed on this index, and this bucket is not a 

continuation bucket, then a DUP_CNT field will be created as part 

of the overhead of the new SIDR even though this field will not be 

maintained. The control byte, ID, and DUP_CNT fields are initialized. 
. 1DX_DFNCIDX$V_DUPKEYS) 


NOT .IRABCIRB$V_CONT_BKTJ 
HEN 


' 
i 
iF 


BEGIN 
(.REC_ADDR)<0, 8> = 1; 
REC_ADDR = .REC_ADDR + 1; 


(,REC_ADDR)<0, 8> = .BKT_ADDRCBKTSB_NXTRECIDI; 
REC_ADDR = .REC_ADDR + 13 


(.REC_ADDR)<0, 32> = 0; 
REC ADDR = .REC_ADDR + IRCS$C_DCNTSZFLD; 


Either duplicate alternate keys are not allowed, or if they are, this 
bucket is a continuation bucket. In either case, it is not necessary 
to allocate and initialize a DUP_CNT field. Just the control byte 

and the ID field of the new record are intialized. 


fos ee 
Cc 


BEGIN 
(.REC_ADDR)<O, 8> = IRCSM_NODUPCNT; 


4. 


ee ee ee ee a ee et ee ee ee ee ed ee ed ee ed ed ed eed ed eed eed 


; 
RM3MISPUT 1b-se -1984 01:51: AX-11 Bliss-32 V4.0-742 Page 32) 
yoe~000 RMSBLD_NEW_SIDR 127808- 1382 93:31:59 RMS SREIRA MISPUT.B32;1 . (7) | 
q} 4 REC_ADDR = .REC_ADDR + 1; | 
ie (.REC_ADDR)<0, 8> = .BKT_ADDRCBKTSB_NXTRECID]; 
7% REC_ADDR = .REC_ADDR + 13 
t? END; 
a4 } Increment the next record ID field in the bucket. | 
79 ; BKT_ADDRCBKTSB_NXTRECID] = .BKT_ADDRCBKTSB_NXTRECID] + 1; | 
4 END; | 
Bg ' pass compression is not enabled, copy the new SIDR's key from keybuffer 
8 : into its place in the SIDR bucket, and initialize the new SIDR's record 
84 ! size to be the size of the key. This size field will be updated to its 
85 ' correct value (key size + SID array size) by the routine which will 
Be create the first element in the SIDR array. 
88 BEGIN 
—_— REGISTER 
R-IMPURE, 
R_RAB; 


IF NOT .JDX_DFNCIDX$V_KEY_COMPR] 
THEN 


BEGIN 
(,REC_ADDR)<O, 16> = .IDX_DFNCIDX$B_KEYSZ); 
REC_ADDR = .REC_ADDR + IRCSC_DATSZFCD; 
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00 

Oe — = RMSMOVE(.IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(2), .REC_ADDR); 

0 

04 ! If key compression is enabled, the key in keybuffer 2 must first be 

05 ! compressed before it is moved into the SIDR bucket. The key of the 

306 ! following SIDR (if there is one) must also be re-compressed using the 

307 ' new SIDR's key. Finally, the size field must be initialized to the size of 

308 ! the new SIDR's compressed key plus the two bytes of key compression _ 

309 ! overhead. This size field will be updated to its correct value (key size + 

310 ' SIDR array size) by the routine which will create the first element in 

311 ' the SIDR array. 

312 37 : 

313 37 ELSE 

314 37 BEGIN 

315 37 

316 37 LOCAL 

$16 HY KE YBUF : REF BBLOCK; 
ths He Compress the new S'DR's key within its keybuffer - keybuffer 2. 
$5, 37 KEYBUF = KEYBUF _ADDR(2); 
322 38 RMSCOMPRESS_KEY™ (.KEYBUF ); 

324 38 ! Fix up the front compression of the following record because it might 

325 38 ! change due to the insertion of this new SIDR. Of course, this step 

$59 HY is unnecessary. if there is no following record. 


Dee Dee ss 
SS 


F 3 | 
RM3MISPUT 16-Sep-1984 01:51: AX-11 Bliss-32 v4.0-742 » 
ral ft RMSBLD_NEW_SIDR eet re Me ea ie eee aoe 33 


; } 3 ! 8 : IF (.REC_ADDR + .SIDR_SIZE LSSU .BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]) 
: } , : es 2 RMSRECOMPR_KEY (.KEYBUF, .REC_ADDR + IRCSC_DATSZFLD + .SIDR_SIZE); 
3; 1 ¢ 1390 4 ! Initialize the size field of the new SIDR to the size of the 

3% 1391 4 ! compressed 4" pave the two bytes of key compression overhead, and 
; 1334 1 4 4 ! move the new R key into the bucket including the two bytes “of 

3 } 2 : it, : : compression overhead. 

3 1337 1395 4 (REC ADDR) <0 16> = .KEYBUFCKEY_LEN] + IRCSC_KEYCMPOVH; 
: 4 38 %6 4 REC_ADDR = .REC_ADDR + IRCSC_DATSZFLD; 

3 1346 1394 4 REC_ADDR = RMSMOVE (.KEYBUFCKEY_LEN] + 2, .KEYBUF, .REC_ADDR); 

>: 1341 1399 3 END; 

; 1306 1400 END; 

: it 1401 

3 1344 1408 ! Save the address of what will be the first array element in this SIDR 

s 12 140 before creating the array. 

3; 1346 1404 

3: 1347 1405 FIRST ARRAY_ADER = .REC_ADDR; 

: 1348 1406 2 RMSADB_TO_ARRAY<) 

3: 1349 1407 2 

; 1350 1408 2 ! If this is a cae ve 3 file, and this is the first such SIDR with this 

: 1351 1409 2 i key value in the fil then set a bit indicating this in the control byte 
; 133¢ 1410 é i of the SIDR array's y PAL. element. 

3; 1354 1ei¢ 2 ir “ff ABCIF Ss PLG_VER] GEQU PLGSC_VER_3 

: 1355 1413 ¢ 

3; 1356 1414 2 not - IRABCIRB$V_DUP_KEY] 

3; 1357 1415 2 N 

3; 1358 1416 2 

3; 1559 1417 1 3 
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0914 8F BB 00000 RMSBLD ~NEW SIDR: 
#°M<R2,R4,R8,R11 : 1216 
56 DO 00004 MOVE” REC_ADDR, 76(IRA + 1289 
00B7 CA 91 00008 CMPB 3s 1B STIFABS, #3 + 1297 
1E 1€ 0000D BGEQU 3$ : 
1¢ 6 A?_s«ED O000F BLBC 28 (1x DFN), 1$ + 1306 
4 EO 0013 BBS #4 » OBTIR ABS, 1% : 1308 
1 90 0001 MOVB #1. (REC RADA) + + 1311 
06 AS 90 0001B MOVB B(8KT ADBR), (REC_ADDR)+ > 1314 
86 D4 O001F CLRL  (REC_ADDR)+ : 1317 
07 11 00021 BRB 2$ : 1306 
10 90 00023 1$: MOVB #16, (REC_ADDR)+ : 1 28 
06 AS 90 00026 MOVB  6(BKT_ADDR), (REC_ADDR)+ > 1331 
06 = A5 96 002A 2%: INCB  6(BKTADDR) > 1337 
06 f 0020 3$: BBS a 28(IDX_DFN), 4$ > 1353 
20 A? 9B 000 MOVZBW 32(IDX_DFNY, (REC_ADDR)+ : 1356 
56 DD : USHL REC ADBR : 1359 
0084 CA 3C MOVZWL 180TIFAB) RO ; 
$0 B940 9F 00030 PUSHAB @96(IRAB)CRO : 
0 A? 9A 00041 MOVZBL 32(IDX_DFN), (SP) : 


| 
| 
| 
} 
| 
p-FURSTAARRAY_ADDRCIRCSV_FIRST_KEY] = 1; 
| 
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AX-11 Bliss-32 V4.0-74 


RMSFOOLED_YUH 730071 38e 93:01:58 Pans SReIRAamt sPUt.o35, 


ZSBTTL ‘RMSFOOLED YUH* 
GLOBAL ROUTINE RMSFOCLED_YUH : RLSRABREG_7 = 


— 


14 
! 
FUNCTIONAL DESCRIPTION: 
routine to do all the probing, etc. to make sure the user hasn't 


been foolifg around w/ rsz, rbf or the buffer describing his record 
between the time i started to position for insert and i go to insert 


CALLING SEQUENCE: 
bsbw rm$fooled_yuh 


INPUT PARAMETERS: 
NONE 


BONAUSWN OO 


Ol i ne Re ee ee ee ee ee oe ee ee ee ee ee ee te te te te ee ee 


04 
3 1 14 1 
3: 1 14 § 1 
3 7 1420 1 
3 3 1421 1 
3; 1 14 ¢ 1 
3; 1 14 1 
3; 7 1424 1 
3 7 1425 1 
3 3 14 $ 1 
: 1 14 1 
3; 7 1428 #1 
3 1 1429 1 
3: 1 14350 1 
3 1 1431 ji 
. | 14 § 1 
3 7 14 1 
3 1 1434 1 
3 7 1oe2 1 
3 1 1436 1 IMPLICIT INPUTS: 
3: 1 1437 1 irab -- mode, address of internal key buffer to check against 
; 1381 1438 1 IFAB == kbufsz 
3 1 ; 1439 1 rab -- rsz, rbf 
: ’ iy : idx_dfn -- minrecsz, keysz 
: 3 1ee6 1 ! OUTPUT PARAMETERS: 
s 1 1443 1 NONE 
3; 138 1444 1 
: 138 1445 1 IMPLICIT OUTPUTS: 
3; 138 1446 1 NONE 
; 1390 1447 1 
: 1391 1448 1 ! ROUTINE VALUE: 
: 1296 1449 1 rmssuc if the user has been considerate 
: 139 1450 1 rsz or rbf if not 
3 1394 1451 1 
3; 1395 1326 1 SIDE EFFECTS: 
: 1398 1453 1 ap is clobbered 
3; 1397 1454 1 
3; 1398 1455 1 !-- 
3; 1399 1638 1 
; 1400 145 BEGIN 
3; 1401 1458 
: 1008 1459 EXTERNAL REGISTER 
3: 140 1460 R_IFAB_STR, 
3 1e0e 1461 R_IRAB_STR, 
3; 1405 1006 R_RAB_STR, 
3: 1406 146 R_IDX_DFN_STR; 
: 1407 1464 
: 1408 1465 LOCAL 
: 1409 1668 RBF_ADDR, 
3; 1410 146 STATUS; 
3 1411 1468 
: ele 169? BUILTIN 
3 141 1470 AP; 
: 1414 1471 : 
3: 1415 1076 ? ! do all the probing and comparing to make sure the user hasn't been 
: 1618 eS, fooling around w/ the record buffer 
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RM3MISPUT 1b-se Sep-1 1: AX-11 Bliss-32 V4.0-74 P | 
ral tt RMS? OOLED_YUH ~307 1382 9}: 31 88 RMS SREIRMEMI SPUT B32, aes BS | 
: 1438 1675 
5 141 1476 IF .RABCRABSW_RSZ) LSSU .1DX_DFNCIDXSW_MINRECSZ] | 
> 1420 147 THEN 
3 14 1 1478 RETURN RMSERR(RSZ); 3 
: 14 g 1480 RBF_ADDR = .RABCRABSL 
; 16 4 14 1 IF RMSNOREAD_LONG(. RAB CeABéu_ RSZ], .RBF_ADDR, .IRABLIRB$B_MODE]) 
: 14 6 14 j RETURN RMSERR(RBF); 
: 14 1484 
we Hg po ees 
+ 1430 14 ! If keys do not match, return error 
Beltre fete = 
: 14 5 1490 IF RMSCOMPARE_KEY(. Rar F AADOR. 
: 14 1491 KEYB 
> 1435 1498 IDX ee aittte KEYSZ)) 
: 14 149 THEN 
: 1437 1494 RETURN RMSERR(RBF); 
> 1438 1495 
: 1439 1496 RETURN RMSSUC() 
: 1440 1497 
> 1461 1498 1 END; 
OC BB 00000 RMSFOOLED_YUH:: 
POSHR #*M<R2,R3> : 1419 
22. «A? 22 a8 81 0000 CMPW = 34(RABS, 34(IDX_DFN) > 1476 
07 1€ 0000 BGEQU§ 1$ : 
50 86A4 BF 3C 00009 MOVZWL #34468, RO : 1478 
3B 11 00005 BRB 43 : 
52 28 AB DO 00010 1$ MOVL 40(RAB), RBF_ADDR + 1480 
7E OA A 9A 00014 MOVZBL 10(IRABS, -(SP) + 1481 
52 DD 00018 PUSHL RBF ADBR : 
7E 2 As ¢ OO1A MOVZWL 34(RAB), -(SP) : 
00006 OO1E SBW  RMSNOREAD_LONG F 
5E 0c C0 0021 ADDL2 #12, SP ; 
1A 50 €E8 00024 BLBS RO, 2$ : 
5¢ 02 00 00027 MOVL #2. AP > 1485 
20 0084 CA 3C 90 A MOVZ2WL 180(IFAB) 9 > 1491 
60 8940 3E : MOVAW 3 6(IRAB) CROJ, R3 ; 
50 20 A? 9A 000 MOVZBL 32(IDX_DFN), R + 1490 
51 38 00 00 MOVL  RBF_ADBR, Ri : 
00006 0038 BSBW =SsaRMST MPARE. _KEY F 
07 50 €9 00 E BLBC RO $ : 
50 8654 BF 3C 00041 28: MOVZWL #34388, RO + 1494 
3 11 0046 BRB 43 F 
50 1 pO 00048 3$: MOVL #1, RO > 1496 
C BA 0048 4$: POPR  #*M<R2,R3> : 1498 
5 00040 RSB : 


; Routine Size: 78 bytes, Routine Base: RMSRMS3 + 038D 
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Kk 3 
16-Sep-1984 01:51: AX-11 Bliss-32 V4.0-74 Pp RMS? 
RMSINS_REC 1er0p= 138s 9h:3ti88 FANS TL OU Ts s Fe Vt 05248 aoe 38 v0 
1499 1 XSBTTL 'RMSINS REC 
GLOBAL ROUTINE RMSINS_REC (BUCKET, REC_SZ) : RLSRABREG_67 = 


lee 
' 


BVLVS 


PIPIPIP IP IPIPIPON RD et at at at st tn a rt kk kk tk tk th tt a tt ot 


make room by spreading existing records apart, and call appropriate 
routine to build the Record. ° F ites 


CALLING SEQUENCE: 
RMSINS_REC() 
i INPUT PARAMETERS: 
BKT_ADDR = address of bucket in which to insert record 
REC_SZ = total size of record to be inserted 
i IMPLICIT INPUTS: 
REC_ADDR = is where to build the record 
IRAB = internal stream context 
dups_seen] - this is a duplicate record 


spl_idx] - left hand part only of index record 
pos_ins] - offset to position of insert 


jololelelojlola) 


IFAB - internal file context, used by called routines 

IDX_DFN = index descriptor, used by called routines 
OUTPUT PARAMETERS: 

NONE 


MEUM 9 ODNAUES WN $O OODNAUES WN" OOONOUSE 


IA AWNAANIRIPONINIPONYPONUNYDY 2 OO Ot OO oe 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
success 
low bit clear if no id's available 


POPOPORIMOPONONONIPINONUNIPONURYD 2 te g 


eee TAMARA MAARAAMAAAMA ADA AAA AAA ee AA AAA ee a oe 


BEGIN 


EXTERNAL REGISTER 
COMMON_RAB_STR, 
R_REC_ADDR™STR, 
R~I1DX~DFN_STR; 


GLOBAL_REGISTER 
R_BKT_ADDR_STR; 


ee ee em ee ed ed ed ed od od od wd 
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Bee See Se Se Se Se Se Bete Ye BeGe teh 


FUNCTIONAL DESCRIPTION: | 
Insert new record into bucket. Check for ID availability if required. 


IF NOT .IRABCIRBSV_SPL_IDX] 
THEN 


OLD_OVHD = .REC_ADDRCIRCS$V_PTRSZ] + IRCSC_IDXPTRBAS + 
ne IRCSC_IDXOVHDSZ; 


$ LOCAL 
1 TEMP =: BBLOCK (6): 
08 53 OLD_OVHD TEMP 0] % 

5 61 LENGTH = TEMPtg:0. 42-0] * 

6¢ KEY_SZ = REC_S72<0,16> i, 

4 63 VBN7S2 = RECS7<16, 16>%; 
09 65 BKT_ADDR 4 KET; 

09 $66 _ADDR = .BUCKE 

1} eof OLD_OVHD = 0; 

ig 569 If .IFAB CIFBSB_PLG_VER] LSSU PLGSC_VER_3 
14 570 THEN 

15 571 

16 278 BEGIN 

1 27 

18 374 IF .BKT_ADDR CBKTSB_LEVEL) EQL 0 
20 576 BEGIN 

1 577 

4 378 IF NOT .IJRABCIRBS$V_DUPS_SEENJ 

4 380 (.BKT_ADDR CBKTSB_NXTRECID] EQL 0 
36 28¢ a (.BKT_ADDR CBKTSB_NXTRECID] GTRU .BKT_ADDR CBKTS$B_LSTRECIDJ)) 
8 384 RETURN_ON_ERROR (RMSBKT_SORT(.BKT_ADDR)); 
$3 586 END 
31 587 ELSE 
32 5 8R 
3 589 
34 590 

35 591 
% 598 

7 59 

8 594 

59 


Figure out Lenge® of data to move and do it if non-zer0 - it will 


ee ee ee ee en ee ee ee ee ee ee ee 
DPD PUDU PVP PULUPLU LUST SUSU SUSI STITUTE 
ee a ee ee ee ee ee ee ee ee ee a a a ad ed ed ad ed od dd 


ROPRIININII INI IDI CA PININININPIPI NI WANA BBB ENB BSE IANO FORO PORORononononononononurnyp 


3 

3 ' 

iB 44 be zer0 when SIDR record is being inserted at the end of the bucket 
41 597 : 

42 298 LENGTH = .BKT_ADDR(BKT$W_FREESPACE) - .IRABLIRBSW_POS_INS] - .OLD_OVHD; 
44 600 IF (.LENGTH GTR 0) 

45 601 AN 

46 one (.KEY_SZ GTR 0) 

47 60 THEN 

48 604 BEGIN 

49 695 

50 on6 GLOBAL REGISTER 

51 66 R : 

26 608 

5 609 RMSMOVE(.LENGTH, .REC_ADDR + .OLD_OVHD, 

54 610 -REC_ADDR + .KEY_SZ + .OLD_OVAD); 

55 611 3 

56 612 
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me 


POPIPIPINPIPININONININIMPINPINPOPo NON NoNyNoPgnyd: 
ELLA LL 


seopenaienolesaaplane 
4 3 
vrata RMSINS_REC 1or8ee- 138s 93:31:58 FANS SeeiRnSmr spur oso, Page 6) 


: } 34 1613 ! Update the freespace pointer to reflect new size of data area 

; i 53 1615 BKT_ADDR CBKTSW_FREESPACE] = .BKT_ADDR CBKTSW_FREESPACE] + .KEY_SZ; 

3 1 61 1817 IF (1PAB CIFBS$B_PLG_VER] GEQU PLGS$C_VER_3) 

:1 8 1819 (.BKT_ADDRCBKT$B_LEVEL] GTRU 0) 

ates, BO § , 

3 1208 19 ¢ We must spread apart the VBN List for prologue 3 index records, also. 
; 1368 16 4 RMSSHF T_VBNS(); 

; 1220 19 $ 1 Insert new index record and return success. 

; 1328 1628 if .BKT_ADDR CBKTSB_LEVEL] NEQU 0 

; 1ah3 ig 3 THEN EGIN 

: 1575 1631 RMSBLD_IDX_REC (.REC_SZ); 

: 1576 16 ¢ RETURN’ 1 

Weg ve 

: 1579 1635 ! If duplicates have been seen, then RMS merely has to add a new SIDR 
; 1580 1636 ' array element to an existing array, otherwise, it must create a new 
fa? Be gs 

; 1388 1639 if .IRABCIRB$V_DUPS_SEEN] 

: 1585 1641 RMSADD_TO_ARRAY () 

; 1586 1966 

| 

: 1589 1845 3 RETURN 1 

; 1590 1646 1 END; 


30 BB 00000 RMSINS_REC:: 
PUSHR 
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#AM<R4,RS> : 1500 

5E 08 C2 9000 SUBL2 ; 
5 146 AE DO 0000 MOVL BUCKET, BKT_ADDR + 1565 
6E BA 0009 CLRW : 1567 
03 0087 A 21 900 CHP } 3(1FAB), #3 : 1569 
0c AS 95 001 eta 12(BKT_ADDR) : 1574 

1E 12 001 BNEQ 2$ : 
44 Aad 95 0001 TSTB 8(IRAB) : 1578 

26 19 OO1A BLSS $ : 
06 A 3 001C TSTB © 6(BKT_ADDR) : 1580 

07 13 OOO1F BEQL «18 : 
07 «AS 06 AS Hy 00 1 CHP (BKT_ADDR), 7(BKT_ADDR) > 1582 
55 pp 0 8 1$ PUSHL BKT_ADDR > 1584 

FDB1 A BSBW  RMSBKT_SORT : 

SE 04 CO 0002D ADDL2 #4, SP : 


RMSBLD_NEW_SIDR (.REC_SZ); 
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3: Routine Size: RMSRMS3 + 030B 


3188 AX-11 Bliss-32 V4.0-742 
RMS.SRCIRMSMISPUT.B32; 1 


108 3$ 


68 (IR 

, ‘ ng. "tnee ADDR), RO 
Ath: hooay RO 
72(IRAB), RI 

R ‘ 9P0,, 

TEMP 

MP aoe * TEMP+2 


REC_SZ 

4 

REC_SZ, 90 
REC-ADDA, RO 
TEMP, R1 
(RIDERO 

(Ri) CREC_ADDR] 
RNSMOVE 

fia “so jah (OKI ADDR) 
Scext _ADDR) 
S$ 


RMSSHFT_VBNS 
JecGat ADDR) 


zs 


RASBLD_IDX_REC 
$8 (IRAB) 
RASADD_TO_ARRAY 
REC_S2 
RMSBLD_NEW_SIDR 
#4, SP 


#8, SP 
#*M<R4,RS> 
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0000vV 30 00004 BSBW  - RMSVBN. SIZE F 
SE 04 CO 00007 ADDL2 #4, SP : 
51 50 90 BO00A MCVB RO. SIZE 
86 51 02 83 0000D UBB3 #2, SIZE, (REC_ADDR)+ 1697 
50 51 9A 00011 MOVZBL SIZE, RO : 1702 
50 08 C4 00014 MULL2 #8, : 
66 50 00 52 FO 00017 INSV BN, #0, RO, (REC_ADDR) : 
50 51 9a 0001C MOVZBL SIZE, + 1703 
56 50 CO OOO1F DDL2 RO, REC_ADDR : 
OF90 BF BA 00022 POPR #*M<R4.R7,R8,R9,R10,R11> + 1705 
05 00026 RSB : 
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; Routine Size: 


RMSNEW_VBN_BYTES 14" 


1763 


65 bytes, 
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Sep 1:51: AX-11 Bliss-32 V4.0-742 
Sep 21382 9; 201: 38 RMS ..SRCJRMSMISPUT.B32;1 
Number of new bytes = (new_size - old_size) * num_vbns 

FIRST_VBN = Pe x)! a * §, ee DFN CIDKSe IDXBKTSZ] * 512) = BKTSC_E 

NUM_VBN NS = (FIRST BKT_ADOR + af TRST _VBN LFREESPCID)G ¢ eet NADDR fextsv. PTR_SZ] + 2); 
N_SIZE = verUR. vane $7) - .NUM_V 


END 


0#250 L1:1756 
pad 8 REGISTER symbol BKT_ADDR is probably not initialized 
Referenced REGISTER enek IDX_DFN is probably not initialized 


00A4 


co 
nm 
@o 


BO 
PUSHR i” tor og R7> 
02 03 EF 00004 is 43. #2, 1$(BKT _ADDR), R1 
51 02 CO OOO0A ADDL2 
52 51 DO 0000D MOVL ni 
52 10 AE 01 00010 CMPL 4 Size. at _VBN_SZ 
24 1B 00014 BLEQU ‘8 
57 16 AZ 9A 00016 MOVZBL 22(IDX_DFN), R7 
57 09 78 OOO1A ASHL #9, R7 
50 FC A745 9E OO01g MOVAB -4(R7)EBKT_ADDR], FIRST_VBN 
57 60 3C 0002 MOVZWL (FIRST _VBNY, R7 
55 57 CO 00026 ADDL Ry. BxT _ADDR 
50 55 C2 00029 SUBL Rs 
50 51 C7 900¢¢ DIVL - RO, VBNS 
10 AE 52 €3 00030 SUBL3 CUR. VBN a “VBN_SIZE, RO 
50 55 C4 00035 MULL2 NUM_VBNS, RO 
02 11 00038 BRB he 
50 D4 0003A 1$: CLRL ~—_ RO 
00A4 8F BA 0003C 2$: POPR #*°M<R2,R5,R7> 
05 00040 RSB 


Routine Base: RMS$RMS3 + 0484 
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RMSM] SPUT | 
V04= RMSRECORD_SIZE - RMS. SRCJRM3MI SPUT .B32; (12) | 
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DUPS_SEEN j - flag set if duplicates seen 
CONT _BKT J] = this is continuation bucket 
BIG_SPLIT_] - flag set if more than two bucket split 
VBN_LEFT J. = VBN of leftmost bucket in split 
VBN T ] - VBN of rightmost pepnes in split 
VBN_MID J] = VEN of middle bucket in 3-4 bucket split 
wi T ] = which record this is in the bucket 
POS_INS } = position of insert of this record 
KEYBUF ) -_pointer to the 5 contigious keybuffers 
PUTUP_VBN_] - VBN of new primary data record (for SIDR ptr) 
PUTUP_ID ] = ID of new primary data record (for SIDR ptr) 
IDX_DFN - yomace to index descriptor structure 
DUPKEYS J] = duplicate keys are allowed 


18 71 ZSBTTL ‘RMSRECORD SIZE’ 
1 ye GLOBAL ROUTINE RMSRECORD_SIZE : RLSRABREG_567 = 
1 74 1 t+ 
; 75 ! 
? 6 FUNCTIONAL DESCRIPTION: 
2 re Calculate record size of SIDR or index records 
{ 0 CALLING SEQUENCE: 
2 a RMSRECORD_SIZE() 
1 Hf INPUT PARAMETERS: 
ft oe 
87 IMPLICIT INPUTS: 
5 88 IF AB - for RMSRECORD_VBN 
85 IRAB ~ pojnter to internal RAB 
s' STOPLEVE - current level in tree 
9 
38 
94 
:}) 
96 
97 
98 
99 


rr rte 4 
ee ee ee eee 


wn— 


04 KEYSZ ] - size of key 
05 REC_ADDR = position of insert (used on index levels only) 
$8 BKT_ADDR = pointer to current bucket 
6 OUTPUT PARAMETERS: 
0 NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: \. 
size of record required 
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1 

1 

1 

1 
é 
¢4 ; PROLOG 1&2: £Size is returned as a single quantity 
66 1 PROLOG 3 Index: Size is returned as two contigious words. | 
67 High order word contains number of VBN bytes 
re Low order word contains number of key bytes 
A! PROLOG 3 SIDR: Size is returned as a single quantity 
% SIDE EFFECTS: 
74 sets AP = 1 when checking down pointer on empty bucket cases 


vOe RMSRECORD_SIZE 74982 93:83:38 «HAMS Sabb ass Fe ut - 8354 Page $7 voee 


1! (index Level). | 
Keybuffer 5 will be used if index/key compression is enabled. 
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SS Seow 


Wr Oo OOne 


aoreer ces 4 will be used if index compression is enabled and a big 
split occurred. 


SeOURAR 
SSe 
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2.000000 C0 CD CD CD CDG 
ro 
=“nununm 


SNANNSIN NSIS 
Dekreh *] 
wn 


SE 


LOCAL 
SIZE; 


1 
1 
1 
1 
1 ine 
1 
BEGIN 
BUILTIN 
P; 
EXTERNAL REGISTER 
COMMON_RAB_STR, 
R_BKT_ADDR-STR, 
R_REC_ADDR_STR, 
R_IDX_DFN_STR; 
GLOBAL REGISTER 
R_BDB; 
RMS is to determine the size of a new SIDR or SIDR array element. 
If .IRABCIRBSB_STOPLEVCL] EQL 0 
THEN 
| 
4 
4 
4 
4 
4 


S83s233 


Ss 


BEGIN 


@ 
o 
wu 


' Calculate the size of the record pointer part of record (which will 
always be present). 


SIZE = RMSVBN_SIZE(.IRABCIRBSL_PUTUP_VBNJ); 
LF . IFABLIFBSB_PLG_VER] LSSU PLGSC_VER_3 
SIZE = .SIZE + IRC$C_DATOVHDSZ 


ELSE 
SIZE = .SIZE + IRCS$C_DATOVHSZ3; 


MAMMA 
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SS 
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oF 


LESS 


! If a new SIDR is required, then add in the size of the key, and the 
overhead associated with a SIDR. 


if NOT .IRABCIRB$V_DUPS_SEENJ 
THEN 


Prologue 1 and 2 SIDR. 
4 _ IFABCIFESB_PLE_VER? LSSU PLGSC_VER_3 
BEGIN 
! If duplicates are allowed, then the overhead for the SIDR 


i includes a four byte duplicate count field which will never 
! be used but is there for compatibility. This field is 
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! unnecessary, if the new SIDR is to go into a continuation 
bucket. 


iF - 1DX_DFNCIDXSV_DUPKEYS 
NOT. IRABCIRBSV, CONT _BKT! 


SRIFARFAS 


SIZE = .SIZE + IRCSC_DATOVHDSZ + IRCSC_DATSZFLD 
+ IRCSCZDCNTSZFLD 


SIZE = .SIZE * IRCSC_DATOVHDSZ + IRCSC_DATSZFLD; 
pire = .SIZE + .1DX_DFNCIDX$B_KEYSZ]; 


ELSE 


Sk 


NOVA "OOONOUE WMO 
SBSLEARANSLESSIES 


sO 00000 0900 CD 


Prologue 3 SIDR. 
ELSE 


oO 
= 


é = .SIZE + IRCSC_SDROVHSZ3 + RMSV3KEY_SZ (KEYBUF_ADDR(2)); 
IDX_DFNCIDXSV_KEY_COMPR] 

_ = .SIZE + IRCSC_KEYCMPOVH; 

END ! of SIDR data level 
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ira RMSRECORD_SIZE 1b-Se0-1984 93:31:38 PANS SRednmami sPut o3o, 
ELSE 


— CIFBSB_PLG_VER] LSSU PLGS$C_VER_3 


! This is a Prolog 1 or 2 index bucket. The size to be returned is 
given below for each of the possible split cases. 


1) two-bucket split no empty buckets: 


Be nt 


WR O OONOAUEF UN “OC OONOUS Ww 


SeEte ores 


ar size of new key + size of VBN_RIGHT 

ere 2) two-bucket split empty bucket: 

874 size of VBN_MID = size of old VBN in record 

th (only update VBN pointer) 

877 3) multibucket split no empty buckets: 

879 size of two new keys + size of first new VBN (VBN_MID) 


+ size of second new VBN (VBN_RIGHT) 
4) multibucket split with empty buckets: 


oae 


size of two new keys + size of VBN_RIGHT 
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i 

! 

i 

! 

i 

i 

' 

i 

i 

i 

! 
880 : 
881 ! 
HT : 
88 : 
884 ! 
885 37 : + size of VBN_MID 
886 33 ' - size of old VBN in record 
887 39 : (update one VBN pointer) 
888 940 : 
pot 003 Two-pass Split Cases Without Empty Buckets. 
44 348 ; 5) first pass of two-pass two-bucket split case: 
898 345 ; size of new key + size of old VBN in record 
302 ot 6) second pass of two-pass two-bucket split case: 
B99 949 i size of VBN_RIGHT - size of old VBN in record 
O38 oat } (only update VBN pointer) 
900 326 i 7) first pass of two-pass multibucket split case - 
st 8e7 } one of the new keys in each bucket: 
$08 322 size of first new key + size of old VBN in record 
905 339 i 8) second pass of two-pass multibucket spiit case - 
208 958 : one of the new keys in each bucket: 
90 959 ! t 
908 960 : size of second new key + size of new VBN ‘VBN_MID, 
909 961 : + size of VBN_RIGHT 
910 206 : - size of old VBN in record 
4p st (update one VBN pointer) 
318 965 i 9) first pass of two-pass multibucket split case - 
ate 366 both of the new keys in the same bucket: 
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4 
tbese 1984 01:51: AX-11 Bliss-32 V4.0-74 
1 73007138 93534558 RMS.SRCIRMSMISPUT.B32; 
size of the two new keys + size of new VBN (VBN_MID) 

+ size of old VBN in record 


i 10) pocene pass of two-pass multibucket split case - 


oth of the new keys in the same bucket: 


size of VBN_RIGHT = size of old VBN in record 
(only update VBN pointer) 


i Two-pass Bucket Split Cases with Empty Buckets 
i 11) second pass of two-pass two-bucket split case: 


size of VBN_MID = size of old VBN in record 
(only update VBN pointer) 


i 11) first pass of two-pass multi-bucket split case: 


size of new key + size of VBN_MID 
= size of old VBN in record 
(only update VBN in pointer) 


i 13) second pass of two-pass multi~bucket split case: 


size of VBN_RIGHT - size of old VBN in record 
(update VBN pointer) 


i sizes are always computed so as to include any control bytes 
' required 


GIN 


E = 0; 


' Handle all empty bucket split cases 


IRABLIRBSV_EMPTY_BKT) 


= 1; ' set for index level 


' In all em ty bucket split cases the existing down pointer 
! must match VBN_LEFT before we ety it. If it doesn't 

! match we can't change it or we may be 

pointers down to the level below. 


IF; /RABCIRBSL_VBN_LEFT EQLA RMSRECORD_VBN() 


causing crossed 


If this is the first pass of the two-pass multi-bucket 
with empty buck” split case then if we are going to 
swing the poin'. > the size is IRBSL_VBN_MID. 


1 
i 
i 
' 
if, RABCIRBSV_SPL_1DX] 

SIZE = RMSVBN_SIZE (.IRABCIRBSL_VBN_MIDJ) 


! Otherwise we are just going to change the VBN pointer in 


" 
p 0 
29 (43) 
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: 1973 5 4 ' place and the size is the difference between the current 
3; 1974 § 4 ' size, and the size of the VBN that wuill replace it | 
; 1975 4 ! (found in IRBSL_VBN_MID). 
5 1208 0 4 ! 
3; 197 4 ELSE 
s Hb 44 4 SIZE = RMS$VBN_SI Fe GARt Rest .VgN M102) - 
: 1303 5 1 ? -REC_ABDRCIRC$V_PTRSZJ = 2; 
: 1981 0 : 4 IF NOT .IRABCIRB$V_BiG_SPLITI 
; 1386 : 4 THEN 
: Hb 8 5 ? RETURN .SIZE; 
3 1388 0 4 ! If this is a sizing for the second pass of a two-pass 
3; 19 038 4 ! mul ti-bucket enoty bucket split case, then the size of 
: 198 039 4 ' ne index record to be inserted is only the difference 
3; 1988 040 4 ' between the size of the current record's VBN and the size 
; 1303 bes 2 of the VBN that is to replace it. 
3: 1991 808 5 IF (. IRABCIRBSL_VBN_LEFT] EQLA 0) 
; 1o36 044 4 THEN 
3: 199 045 4 SIZE = RMSVBN_SIZE(.IRABCIRBS$L_VBN_RIGHT)) 
; ib a be9 2 ~~ .REC_ADDRCIRC$V_PTRSZ] = 2 
3 1398 048 4 ! For all other multi-bucket —7 bucket split cases, the 
3; 199 049 4 ! size of the index record(s) to be inserted includes the 
; 1998 050 4 ! key size, and in the case of the one-pass multi-bucket 
: 1999 051 4 ! onpt bucket eet te cas2 includes the size of the VBN in 
: 2000 052 4 i TRBS(_VBN.RIGHT. 
3; 2001 053 4 : 
3 O08 054 4 ELSE 
; 200 055 (5 BEGIN 
3: 2004 056 5 SIZE = .SIZE + .IDX_DFNCIDXS$B_KEYSZ] + 1; 
: 2005 057 é 
3 5 058 IF NOT .JRABCIRBSV_SPL_IDX] 
; 200 059 : THEN 
3; 2008 060 SIZE = .SIZE + RMS$VBN_SIZE(.IRABCIRBSL_VBN_RIGHT]); 
3: 2009 061 4 END; 
3; 2010 beg 4 
: 2011 063 4 RETURN .SIZE; 
3 otg 064 END; 
: Biz 065 
: 2015 06 ! Determine size of index records to be added for all bucket split 
3 819 oes cases not involving empty buckets. 
3 yg v79 ! If this is not the first pass of a two-pass bucket setts case, 
3; 201 071 ' compute the difference between the current record VBN pointer 
: 2020 O76 ! size and the size of the VBN to swing (VBN_RIGHT). This will 
3; 2021 07 ! facilitate computation of the record size during the second 
3; 20 § 074 ' pass of all two-pass bucket spl** cases when a VBN pointer must 
3 20 075 ! be updated (in fact becomes the size for two of the two-pass 
: 2024 o78 ' bucket split cases), and it becomes part of the compuation 
3; 2025 7 ! of the Vi ointer size required for VBN_RIGHT for all one-pass 
$ $ 4 bucket split cases. 
3; 2028 st IF NOT .IJRABCIRB$V_SPL_IDX] 
3; 2029 081 HEN 
| 
ae as 
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The size of the middle key key and its gerrespensing VBN must be 
included in the computation of record size if this is a one-pass 
aut Foucher case, the first pass of the two-pass multibucket 
split case where both keys go in the same (old/left) index 

bucket, or the second pass of the two-pass multibucket split 
case where one of the new keys goes in each of the old and new 
index eussete and we are currently updating the new index 

bucket with the second of the two keys and its corresponding VBN. 


F (.IRABCIRB$SV_BIG_SPLIT] AND NOT .IRABCIRBSV_SPL_IDX) AND 
. IRABLIRBSL_VBN_MID] NEQU 0) 


OR 
(. IRABCIRBSV_SPL_ IDX} 
AND~. IRABCIRB$V_B1G_SPLIT) 
ae AND (. IRABCIRBS@_POS_INS] EQLU BKT$C_OVERHDSZ)) 


SIZE = .SIZE + @MSVBN_SIZE(.IRABCIRBSL_VBN_MIDJ) + 
-1DX_DFNCLIDX$B-KEYSZ) + 1; 


eynetty. the size of the record must include the size of the 
first key on all one-pass bucket split cases not sneaking 
onpty buckets, and on all two-pass bucket split cases during 
the first pass when the contents of the old index buckets 
are being updated. 
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Note that the current record size is also added in. If this is a 
one-pass bucket split cases this quantity pius the difference 
between the VBN pointer size in Ho old record and the VBN 
pererer size required for VBN_RIGK sehreedy included within 

IZE) yield the size of VBN_RIGHT. If this is one of the two-pass 
bucket split cases, it is af this point that we include in the 
size determination the size of the old record's VBN pointer. 


- IRABCIRBSL_VBN_LEFT] NEQ 0 


F 
HEN 
SIZE = .SIZE + .REC_ADDRCIRC$SV_PTRSZ) + 2 + 
.IDX_DFNCIDRSB_KEYSZ] ? 1; 
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ELSE 


! This is a Prolog 3 index bucket. The size to be returned is 

! given below for each of the possible split cases. Note that it 

' will always be possible for the VBN pointer size to change in 

! a bucket. This requires that the additional bytes needed to 

! increase the VBN pointer size of every currently existing index 
' record in the current bucket to the new value be included in the 
! size determination. 
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1) two-bucket split no empty buckets: 


size of new key + VBN pointer size of bucket 
+ number of new VBN bytes 


2) two-bucket split empty bucket: 


number of new VB8N bytes 
(only update VBN pointer) 


i 

' 

! 

1 

! 

' 

{ 

! 

i 

' 

' 

1 

! 

| 

1 

' 

! 

' 

3) multibucket split no empty buckets: 
; 2096 ! size of two new keys + 2 * VBN pointer size of bucket 
: + number of new VBN bytes 

} 4) multibucket split with empty buckets: 

, size of two new keys + VBN pointer size of bucket 

! + number of new VBN bytes 
(update one VBN pointer) 

Two-pass Bucket Split Cases Without Empty Buckets 

; 5) first pass of two-pass two-bucket split case: 

' 
! 
! 
' 
' 
! 
i] 
! 
i] 
1 
4 
i] 
' 
' 
' 
i] 
' 
' 
! 
' 
' 
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size of new key + VBN pointer size of bucket 
number of new VBN bytes 


6) second pass of two-pass two-bucket split case: 


number of new VBN bytes 
(only update VBN pointer) 


7) first pass of two-pass multibucket split case - 
one of the new keys in each bucket: 


size of first new key + VBN pointer size of bucket 
+ number of new VBN bytes 


8) second pass of two-pass multibucket split case - 
one of the new keys in each bucket: 


size of second new key + VBN pointer size of bucket 
+ number of new VBN bytes 
(update one VBN pointer) 
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9) first pass of two-pass multibucket split case - 
both of the new keys in the same bucket: 


size of the two new keys + 2 * VBN pointer size of bucket 
+ number of new VBN bytes 


we 


10 


~~ 


second pass of two-pass multibucket split case - 
both of the new keys in the same bucket: 


number of new VBN bytes 
(only update VBN pointer) 


Two-pass Bucket Split Cases With Empty Buckets 
11) second pass of two-pass two-bucket split case: 


(only update VBN po 
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12) first pass of two-pass multi-bucket split case: 


ee — a 2 — 2d 9 2 —) 2 2 3) Ls Ls — 9 2s ss 4) 


size of new ms | + number of new VBN bytes 
(update VBN poin 


13) second pass of two-pass multi-bucket split case: 


ter) 


number of new VBN bytes 
(only update VBN pointer) 
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Sizes are always computed so as to include “| control bytes 
required. For cases 4, and 9, key size include compression 
of the second record if compression is enabled. 
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: 
; 
; 
; 
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BEGIN 


PAPAIN SSSR 


First set up some useful constants 


3 : 
LOCAL 
CONTEXT : REF BBLOCK, 
KEY_SZ, 


a se ss ss ss 2s a 


Address of block containing context 
for potential update of an existing 
index rec 

Number of bytes needed to store the 
key of the index record(s 
sceneression index is added in and 
front compression of the second 
record is subtracted) 

Size of all the VBNs after the 
insertion (they could all grow by 
one or two eytne? 

Number of bytes which will be added 
to the exis ing VBNs because of 
changing to a larger VBN size 

(may be 0) 


Determine the size (VBN_SZ) of the VBNs after insertion of the 
index records to be inserted, and the number of VBN bytes 
(NEW_VBN_BYTES) which will have to be added inorder adjust the 


ee See OMP NN UMO SS ee RR eee eR LES 
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VBN_SZ, 
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NEW_VBN_BYTES; 
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187 ; ! VBN pointer size of the ocr existing index records to this value. 

188 ! Determination of VBN_SZ will directly depend upon the bucket 

18? split case of the current invocation of this routine. 

191 NEW_VBN_BYTES = 0; 

138 ' For all one-pass bucket split cases and two-pass two-bucket 

130 ! empty bucket split cases the VBN pointer size is the maximum of 

138 size, VBN_RIGHT, and VBN_MID. 

198 if (NOT . IRABCIRB$V_SPL_IDXJ) 

$70 (.TRABCIROSL _VON_LEFTI NEQU 0) 

202 VBN_SZ = MAXU Comte ven SEES }* RAR) (ReeL ven Bte) 

203 RMSVBN SIZE (- [RAB IRB$L-VBN-RIGHT), 

spe -BKT_ABORCBKT$V_PTR_SZJ?2) 


ELSE os 


! Determine V8N_SZ for the first pass of all two-pass 
bucket split cases. 


iF .IRABCIRBSV_SPL_IDX) 
THEN 


For case 9 (two-pass multi-bucket split with both keys 
in the same bucket) and case 12 (multi-pass multi-bucket 
empty bucket split) VBN_SZ is the maximum number of 

7 be needed to store VEN_MID and the current bucket 

VBN pointer size. 


! the number of bytes need to store the current bucket pointer 
| 
} 


! 

; 

! 

if - [RABLIRBSV_B1G_SPLITJ 

((, IRABCIRB$W_POS_INS] EQLU BKT$C_OVERHDSZ) 


| 
ane . IRABCIRBS$V_EMPTY_BKTJ) | 
VBN_SZ = MAXU (RMSVBN SIZE(. [RABCIRBSL VBN_MIDJ), 
-BKT_ABDRCBKT$V_PTR_SZJ#2) 


! For all other two-pass bucket split cases, the VBN_SZ 
' is the number of bytes need to store the current VEN 
pointer bucket size. 


ELSE 
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$3 VBN_SZ = .BKT_ADDRCBKT$V_PTR_SZ]+2 | 
: 223 ! Determine VBN_SZ for the second pass of all two-pass 
; 22! ! bucket split Cases. | 
4 237 ! | 
3; 2238 ELSE 
3 2239 2 ; 
3; 2240 2 ' For case 8 (two-pass multibucket eat tt with a key 
: $e) § ! inserted in each of the buckets) VBN_SZ is the 
: rk} ' number of bytes needed to store the maximum of the 
3 226 2 ! current VBN bucket pointer size and VBN_MID. 
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1 
RMSRECORD_SIZE 1 
95 
9 
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' 

3 TF j/RABLIRBSL_VBN_MID NEQU 0 

9 VBN_SZ = MAXU Cee vEN 31 CE (RABE IROSt ven B10? 

: RMSVBN~S!ZE(. IRABLIRB$L_VBN-RIGHT)) 
! For all other two-pass bucket split cases, VBN_SZ becomes 
} the number of bytes needed to store VBN_RIGHT. 


| 
| 
ELSE | 
VBN_.SZ2 = RM$VBN_SIZE(.IRABCIRB$L_VBN_RIGHTJ); 
NEW_VBN_BYTES = RMSNEW_VBN_BYTES(.VBN_SZ); 
! Determine the key size of the first key to be inserted. 


: The two bytes required as overhead for key compression are 
included in the key size if index compression is enabled. 


2¢ 
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; 8 F 
3 9 3 
5 0 5 
3 83 $ 
3 308 F 
3 § 304 3 
; $02 $ 
:§ S307 3 
RZ 2308 3 5 
s ¢ 2309 3 5 
oe 2310 3 5 
R¢ 2311 3 : 
3 2 seig 3 ! F 
3 de 2313 3 iF .IDX_DFN CIDX$V_IDX_COMPR ; 
3 22 2314 3 : 
3 22 2315 3 KEY_SZ = 2 3 
3 22 2316 3 ELSE 3 
; 22 2317 3 KEY_SZ = 0; : 
; 22 2318 3 3 
: 22 2319 3 ! For all one-pass bucket split cases where there are keys to be 3 
3 22 2320 3 ! inserted, and for the first pass of all two-pass bucket split 3 
3 22 2321 3 ! cases, the first key to be inserted is the key found in key : 
; 22 2322 3 ' buffer 2 3 
; 22 2323 3 ! : 
H $$ $35¢ 3 IF (. IRABCIRB$L_VBN_LEFT] NEQU 0) : 
: $$ $359 3 (NOT (. IRABCISBSV_EMPTY_BKT] AND NOT .IRABCIRB$V_BIG_SPLITJ)) : 
s 2c 2328 3 KEY_SZ = .KEY_SZ + RMS$V3KEY_SZ (KEYBUF_ADDR(2)) : 
B ae $367 3 ELSE F 
8 €e 2330 3 3 
3 de 2331 3 ! For the second pass of the two-pass multibucket split case : 
3 22 2332 3 ! where a key goes in each of the two index buckets (case 8) ; 
3 ¢¢ 2335 3 ! the first and only key to be inserted is actually the second 3 
; 22 2334 3 ! of the two keys to be inserted, and it is found in key 3 
3 2284 2335 3 ! buffer 3 : 
3; 2285 2336 3 ! 3 
: $S89 THA ; IF NOT .IRABCIRBSV_EMPTY_BKTJ : 
: $584 $335 4 (. IRABCIRB$L_VBN_MID] NEQU 0) | : 
; $555 2340 3 3 
3 3 to 3 KEY_SZ = .KEY_SZ + RMSV3KEY_SZ (KEYBUF_ADDR(3)) : 
; § 35 $35 : ! For the second pass of all other two-pass split cases, 3 e¢ 
3: 229 2344 ; ! the key size is zero. 3 4 
> 2294 $302 ! 3 e¢ 
3 2295 <9 ELSE 2 2¢ 
> 2296 34 KEY_SZ = 0; | 3 
3: 2297 348 3 e¢ 
: $398 349 IF .IRAB CIRBSV_EMPTY_BKT] | : 3 
3: 2299 350 THEN ga 
3; 2300 351 sa 


RM3M1SPUT 
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8 28 ; } We have an empty bucket. 

0 4 BEGIN 

$he SIZE = 0; 

306 ' If there was a multiple bucket split, add new key and VBN 


oO 
~ 


! unless this is the second pass of a two-pass multi-bucket 


empty bucket split case. 


IF (.IRABCIRBSV_BIG_SPLITJ 
(, IRABCIRB$L_VBN_LEFT] NEQA 0)) 
THEN 


oO 


NAW WN 0 ODO UNE WIN OOD NOAUE WN SO OONAUES WN“ OOONOUS WNC OW 


BEGIN 
SIZE = .KEY_SZ; 


! If this is not a two-pass split case, the number of 
! new VBN bytes is VBN size plus the number of bytes 
! which will have to be added because of a possible 

! VBN size change within the index bucket (will be 
zero if no VBN size change occurred). 
I 


F NOT .IRABCIRBSV_SPL_IDX] 
NEW_VBN_BYTES = .NEW_VBN_BYTES + .VBN_SZ 


If this is the first pass of a two-pass multi-bucket 
enpty bucket split case then the number of new VBN bytes 
will be the number of oe which will have to be added 
because of a possible VBN size change within the index 
bucket provided we are allowed to update the VBN of the 
current record because it is the same as the VBN of the 
leftmost primary data bucket. If this is not the case, 
then because we can't update the VBN (this could cause 
crossed po*eters down to the data level), the number 

of new VBN bytes is set to zero. 


(ecm mcmmemresminve 
a 


WWAWANNAAAANWNANANAWANANWNNAWNWNNNNANANAN 


SWAN ANAAAAANI API PIPUNIPINIPININYDY 2 2 OOP OO Ow OF 


SE 
IF _(.IRABCIRBSL_VBN LEFT] NEGA RMSV3_VBN()) 


NEW_VBN_BYTES = 0; 
END 


If there wasn't a multibucket split, and we are not going 
to swing a pointer because this could be causing crossed 
pointers down to the level below, then there is need to add 
new VBN bytes. 
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SE 
IF (NOT .IRABCIRBSV_BIG_SPLITI 
(,IRAB CIRBSL_VBN_LEFT] NEQU RM$V3_VBN())) 
NEW_VBN_BYTES = 0; 


Wr—o 


END 
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] 

| 

| 

| 
; 8 409 ELSE > €: 
; 9 410 | ; 2: 
; 2360 411 ! No emery buckets. For now, assume that entire record * ¢! 
3 1 tig : will fit into one bucket and compute its size. ‘ $: 
3 ¢ 41 ! Always add VBN and key unless this is the second pass of one + ¢: 
; 236 414 : of the two-pass bucket split cases where all we are going * ¢: 
: 2364 415 : to do is update a VBN pointer. In such cases, the size + $! 
; P) 2i$ returned does not include the size of a VBN and a key. | * $! 
; $e 418 4 BEGIN + ¢! 
; 2368 419 4 SIZE = .KEY_SZ; + ¢! 
; 2369 420 4 | + ¢! 
; 4! ? 1 ? IF (. IRABCIRBSL_VBN_LEFT] NEQU 0) * ¢! 
; re § ? (. IRABCIRBSL_VBN_MID] NEQU 0) : ¢! 
; ai 425 4 NEW_VBN_BYTES = .NEW_VBN_BYTES + .VBN_SZ; 2 2 
: 2375 2426 4 ; 2: 
; 2376 2427 4&4 ! If this is a one-pass multibucket split or the first pass + €: 
: 2377 2428 4 ' of a two-pass multibucket split where both index records + ¢! 
; 2378 $t$3 4 ' are to go in the same (old) index bucket, the size of the + 
3 tt 2430 4 ! index record must include (in addition to the key size of the + ¢ 
; 2380 tt 4 ! first index record, the new VBN size of the bucket, and the * ¢ 
: 2381 43¢ 4 i number of new VBN bytes which must be added to all’ 2 2 
; 2382 24335 4 ! preseststing VBN pointers to make them all the same size) the > ¢: 
3; 2383 2434 & ! key size of the second index record (less its front s ¢! 
>; 2384 2435 4 ! compression if index compression is enabled) and the size of + ¢! 
3: 2385 2436 4 ' another new VBN. If index compression is enabled, then the 3 ¢é! 
: $an8 ret ? key size will not include any rear-end truncated characters. : ¢! 
; 2388 2439 4 IF .IRABCIRB$V_BIG_SPLITJ : é! 
3; 2389 2440 4 AN s él 
; 2390 2441 6 ((NOT .IRABCIRB$V_SPL_IDX] 2 ¢! 
> 2391 gue 6 AND .IRABCIRBSL_VBN_LEFT] NEQU 0) 3 2: 
; $398 see 5 OR 3 ¢! 
3; 239 444 6 (. IRABCIRBSV_SPL_IDX] sé! 
3 2394 2445 5 AND TIRABCIRB$W_POS_INS] EQLU BKT$C_OVERHDSZ)) : $: 
; S3o2 2446 4&4 THEN sé! 
3; 2396 2447 5 BEGIN 3 i 
; 9397 gg 3 NEW_VBN_BYTES = .NEW_VBN_BYTES + .VBN_SZ; i 2 
; $399 2450 § IF NOT .IDX_DFN CIDX$V_IDX_COMPRI : 3 
; 2400 451 5 H 2 éi 
: 2401 $26 é SIZE = .SIZE + .IDX_DFN CIDX$B_KEYSZ] s ¢: 
: g40¢ 45 ELSE | 4 
: 240 454 6 BEGIN 3 ¢ 
> 3404 455 6 | 32) 
; 2405 456 6 CAL | ; $. 
: re} seat 6 KEYBUF3 : REF BBLOCK, | : 
3; 240 458 6 KEYBUF4 : REF BBLOCK, s ¢ 
: 3408 459 6 KEYBUF5 : REF BBLOCK, | : 
: 26 460 6 SAVE_BKT_ADDR; $< 
3 2410 461 6 ; ; | 3 
. 2411 462 6 ' To determine the 3'7¢ of bogh keys, we will : 
: tig 4635 6 ! need key buffers 5. 4, and 5. : 
: 241 464 6 ‘ sé 
3 2414 465 6 KEYBUF3 = KEYBUF_ADDR(3); Pan 4 
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: 2415 466 6 KEYBUF4 = KEYBUF_ACDR(4); | : 3 
; 418 46 6 KEYBUF5 = KEYBUF-ADDR(5); : 
; 2618 4 6 ! Move the second key into key buffer 4 and compress | : ef 
: 2419 470 6 ' it as if it was to go at the point of insertion : el 
: 2420 471 6 i instead of following the first key (which is to : ¢l 
3; 2421 472 6 ! be inserted there). Then cosqnerees the second key ; et 
; 26 ; 473 6 ! based upon the first key (which is still in key : ¢ 
> 26 474 6 i buffer 5). : 
: 2626 475 6 > @l 
> 2425 476 6 RMSMOVE ( KE YBUF SCKEY_LENJ + 2, : el 
3 24 g 477 6 . KEYBUF > 2 
3 24 478 6 -KEYBUF4) ; ; el 
3 2428 479 6 RMSCOMPRESS_KEY (.KEYBUF4); > el 
: 2409 480 6 ; $| 
: 2430 481 6 SAVE_BKT_ADDR = .BKT_ADDR; 3; 2 
3 2431 48 6 KT_ADDR™= 0; > el 
> 26 : 483 6 RMSRECOMPR_KEY (.KEYBUF5S, .KEYBUF4); > 2 
; 6 ef 6 BKT_ADDR =". SAVE_BKT_ADDR; : $I 
3 13s 2486 6 ! Add the size of the second key to the size of the 3: 2l 
: 2636 487 6 ! first key to obtain the key contribution to the 3 $| 
3 see 488 6 ' size of the record. : 2 
; 2438 489 6 ! 3 4 
; 2439 sony 6 SIZE = .SIZE + .KEYBUF4CKEY_LEN] + 2; : dl 
> 2440 491 5 END; > 2 
; 24461 2492 4 END; | : el 
> 266 2493 3 END; : el 
: 544 49% 3 | : al 
3 2446 495 ! Return the size of the record for prolog 3 index buckets as two : el 
3 2445 2496 3 ! contigious words. The high order word contains the number of VBN : i 
3: 24466 2497 3 ! bytes required while the low order word contains the number of 3 a 
; ret 438 ; : bytes required to hold the key(s). : $i 
> 2449 500 RETURN (.NEW_VBN_BYTES)*16 + .SIZE; | : 2 
fe ve 4 
3; 245 50 ! Return the size of the prologue 1 & 2 record or Pprologue 3 SIDR as : 2 
; 245 504 ' a single unified quantity. : $| 
3 2454 505 : : el 
3 2455 506 RETURN .SIZE; 2 
; 2456 2507 1 END; 2 

3 al 

3 4 

3; al 


1C BB 00000 RMSRECORD SIZE:: 
SE 0c ¢2 0000 arty A ta | rane Sch 
41 Aad 95 0000 TSTB  65({RAB) : 1854 
5F 12 00008 BNEQ 8$ ; 
78 ~A9 p OOA PUSHL  120(IRAB) > 1861 
0000v " 00D BSBW  RMSVBN_SIZE : 
35 85 60 boats Abvte RO’ SIZE 
5 D4 00016 CLRL = RO’ > 1863 | 


Page 60 ona 
5 ° iss-32 V4.0-7 (14) 
UEeectote GU:61:38 YMG" Lebhdabaddtt- 832 
viral ta RMSRECORD_SIZE 183(1FAB), #3 r 
v04 $2 18 CMPB : 
POE TR ety | 65 
06 i ADbL2 2, SIZE aa! 
$2 f) 00054 “cts A. cen ; 1873, 
$2 §§ 00099 28: ISTE — : 1878 
“4 4 2 CS. Te e 1678 
39 £9 000 Stee | SBLIDK.DFN), 38 : 1890 
OA 1¢ a? £9 BBS #4, 68TIRABS, 3$ ; 1893 
4 £ : ADDL2 #8. SIZE ; 1892 
e ae os 1) 00030 BRB 189? 
1 SIZE ; 
5 04 CO OOO3F 3$ movie, SSCIDX-DEND, RO Dears 
a ee Be 
, 11 0004 BRB oat ; 
50 00B4 th C 0048 6s PUSHAB a5eCiRAB) EROS : 
°° Booov $0 90034 + ve + phic : 
57 ADDL , SIZE > 1906 
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ig 12 Gooey BARN, T3E ho 
008¢ C9 i O08 BSBW = RMSVBN_SIZE + seen 
ar ce eKTy #0 Be, (REC_ADDR), Rt : 
2 £2 oogca Stet (RO), SIZE 2045, 
” = FE AO oe fp 128 _ 26s st os > 2056 | 
1 ; DFN 
50 20 a 9a 00003 188: MOVZBL = S52(1DX_ 


-—~ wo nal Ww ROO -— N OO f- NOK mM wn Meow o 
- oO oo So o o - - Fe KF K— OON ~N ~N ecm 
Ps tat at) bat iat) N N NS GUC NNN NS eKCuCN of N ~N ween ow 
+ Fe Fete FS FS FS FS FS FS FS FS FS FS FS FS HS HS HS FS TS FS HS FS HS HSS HSS HS HSS HS FS FS FS HS HSS FCS SSCS SCS HEFCE TS SCS ESHER CR SCR FEES HCE FEO HES SCE Fe 
a 
Ne 
+s 
nw 
m™ 
om 
*e 
| 2 
| a - o 
mw = a 7 
| PN ~~ 
| ‘= . . « 
wm ~ ~ a 
| *= w a F ad a a A ad 
-= ™ Qa Oo oa a < oO oO 
—_" a - - —w a ew ~ ' ~N N 
Qw ww xt an < am a 
i: 4 cad Cad a A Aww ed tT — We ” bw 4 A ~~ . 
—w" =) w Ye war ann “~ Vv wa ww ~~ @ ae A 
| --= NN Ww - ww NO a ie w = wa eN w w 4 or | 
wm w mM xy Cc ~_ ze qe 2+ > ~_ o~ La) 
== ™/s OF es) emt Af on oe ee ee * | - =: = 
~~ a 2 a ~ ~ » ‘ie «x =< =x =o a v . bed ~ 
weieza e2Zzavo-oaodca co e@2QqQ MYO WW Kt OEE 22-2200 -—woOooO @ co 
aA2Z--OM MVR cooc coc —-OY -Oa-—— 8 On Fae $—§OF-ONe ecuweacac coc wo 
oew~ > —~ > Cee SOW Ow Ue aw ye > DS —_— =— 
aeeoew = ~OR + 8 wT Ry ~~ RATRA MY TOM M~THI~OM TAM OM + HM 2 2s + MHM~ ~~ * 
Oo ~~O-. £7 eos EO wv TF DOW st Eat IS MOO Hw — WOMM ~F £Os Ear OOM DO Orurumn oO 
ON Oe TZAaMNO-- TCeec i BO — OB — — TF BOM — K— VNBMMMWN ZO Ve CE SaeSVvesBeacuvoerve 
-— 
Mo a) ad 
++ 2 o Ww | eb ue a) wee Nee a] Nn D> 2>N JD 
em Vxz3u MWMITEZBaNW MiY4uGY 3BIOTt3Z YIN YUNG ee SS ee | ee Pa 
on | at ty $F pet Sy $F te OE ett S$ ty fo tt peed FF heres rh tr FF Fy SEE bt pe 4 t= 1 
FE e+ + Fret te oS Fak Fy tet Feet ET tT fae fet Poy SS FF SS tet tet + Ft tet tf 
> § @O0.O<OO0 O4wW%T OO OOOVYOAOte EZ OwctsEOvr Or CAMEL O<AVOEwaevoooov®D 
on 
putas 
te 
aa 7 oT ** 7 «f° 
wee ross AP PAP A ee 2 cH Bw 
wm w w or t-°) oa o- ™N wes 
su g - - or - - om N wm 
-vOoOvrr fOr mow VOTO EE MMO Vu — ANNO VONOO Verve fUEWM PMO Ww 
—— CouwWWWo eee See NU UNIIA Me So PAAR DOD OOM N ODDO OS 
III 80 
COOOCOCOCOCOGCOOCOOOCOOCCOCOO OOOO OOOCSOOOOCOCOOOOCOCSOOOOOOCOOOAaO OOO OOOOOOOoOO 
OOOOCOOOOCOCOCOCOOOCOCOSOCOSOSOSOSSOSOCCSCOSOSOSOSOOCOSOSOOOSSOOSOOOOSOCOOOOOOOOoOO 
WD OOO DBD OOCOL NWI DNNUO — —VOOCOO € WIM 4 O CWI FONMOACOOCOCOr- WOK CK en RK OR eM 
ASwWwOMOMWOMOWVYOWWO WWD OMVUOO O— WOUOOMOAWO QMOAQMVUO OW Or kK wWOenw 
> > > > > 
NAEPOTFOROOT D—OVUAD & SVUA OPOSTUVUP. OO — OCP. OR. WAAR OP OOK OST HK MOM BHOAMUAMNO 
| eet reel ei wedi > wee Wie ees 
kee - 
<= Se Ss oS “ =<s ae 
a ed we w wo wr eo oO Oo-wo om ad~wTa © YL zr @ 
owe ~roo _ FowrwTr & Mow NO Ovo Oo a wr w 
oOo Oo So So So o So Oo 
Oo o So o Oo o oO So 
wr w © wrVowe < ow woew NON ~ mw WO -VOO <zOow Oo 
we wie MOUNT O NEtO MnnW onmw ta] no Wm NMOoOUW, miko <« 
w w wv wr 
wv wT wr w 
iv) 
~ 
a / Y o wv ts) a 
” 
e 3 Oo - Oo <f ™N - 
= 
wv a 
w o 
2 
a 
- o 
a R a 


sal 


| 
| R 
62 | 
5 - =32 V4.0-74 Page v 
1b-Se0-1984 93:01:38 — ERMS|SeedanSni seut.030; snk 
RM3MISPUT 4 ; : 
ee tanecome 8 0090 ofS, QB OTA 258: puSM 1esCRARD Pee 
7 Oe i 1A eno ie, 13(BKT_ADDR), R1 | 
oD AS ; ES Boles ADDL a: Ri Bas 
1 os 0189 BGEQU = 31 +2 "| : 
re of 188 MOVL Ri, RO : 3376 : 
+ C i gps EXTZy #3, #2, 13(BKT_ADDR), VBN_SZ 
EF OO1CO 268: —- EXTZy ’ VBN.SZ 2270 : 
0D AS 02 0 001C ADDLe = #2) VEN. : 3370 
om) nn 11 01¢6 278: ROVL —-TS4CIRAB), RO : 
“or i hee eee ; 2298 ; 
9 pb 00104 BSBU -RMSVBN. SIZE 
oodov $0 0106 Rsven ¢ 5099 
50. 0 00109 MOVE 140CTRAB) , (SP) : 
51 8 01D¢ MOVL 1 5 ; ; 
GE —008C | ¢9. 09 010¢ BSBW RM 
18. 0 OO1ES ADDL2 84, 
35 31 bt ote? PL RY ; 
50 3 1 OO1EA Bera 298 ; 2298 
30 DO OOIEC 288: MOVE” RO. R ‘os : 
4 ge TF Bes SPF Brat Bg VOM. ams) |} 
one 85 HEED 00 et Ladi : 
MOR. CO OOrFE ADDL2 #4, SP 3 asor 
SE Bs 8 pores 31s: MOVE, «RO VBN_Sz 
“ & 04 AE bd 00205 328: — PUSHL RMSREW_VBN_BYTES : 
Be 20 00 09 one 6S. NeW VBN_BYTES > 2313 é 
oe 50 BO 00g0¢ BoC) AS, SECTOR OPN). 33S : 5315 ; 
° nee 03 5 00915 case Sig “EVE : 2317 ; 
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1A “4 49 009068 D3 IR eS 2 2341 : 
0 ome ek MER HBbaeaay 2 ; 
60 800 i 0548 37S: BSBUN RMSVEKEY. SI 
090v $9 0024 ADDLZ #4, SP ; 
5E 2 f ADDL KEY + 5347 : 
bE 33 SS BRB S as : $305 ; 
ee he ee eS RS 
ac 6 8$ be 0058 CLAL E 
| 
| 
ae 


RMSRECORD_SIZE 


08 


08 


04 


08 


63 
2 


63 
50 


52 


wo NONM MTMOOwN 


on Pius vivre OWOooey 
mm mm 


wu 


oun 
‘ee 
vm 
aow 
vv 
ee 
—— 


SAINI NOOO 


a 


SM VOWOTWI CVT IW NWO ODOT NOW OME -AMMmMmMo OC $90 $C C0 | 9 |] OWN OmMo om 


SA SSS SSASSSWANSSSSR oe 


OOWOWUIM NODA O & OOMMMNOONM MUMS Or 


POLO HLMNPOPFUVNS RUSSO FS OM OMONMVNAEWP FOCOMPAAOOMO 


So 
VWNMONWFSOMUMMOWIN QO 0 OW POON 


@ 
oOo 
r~ 
SROMIMA OD EMS HONS Ue DOL eRe See 


PTDWOVMVMNOM OA LMS HOS NIM ONO FO Tm 


COOOCOCOOCOCOSOSOSOOOSOSOSOSOSOSCSOOSOSOSOSOSOSOCSOOSOCOOCOOCOSOOOOCOSOSCOOOOOOOOOOOOOOOO 
>~nN 


OOQCOCOOOCOOOOOOOSOOOOOOOOOOOOOSOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 


OOM FS OOOO LFOOOOSOO FDMMOVUMMA —O FS COON O00 $$ OWI § AW FO FW "§ O00" ODOwnn— 


—— 
o> 


4:34:38 Hane eeebhsaafeeut 835; 


#2, (R3), 41% 
1Secinaas 
KEY_SZ, SIZE 


(R33 
N_52, NEW_VBN_BYTES 


V 
i3 {R3). 48$ 
RM$v3_VBN 
136(IRAB), RO 
N W_VBN_BYTES 
ie SIZE 
136(IRAB) 
43$ 
RO 
44$ 
144 CIRAB) 
VBN_SZ, NEW_VBN_BYTES 
#2,-(R3), 50$ 
(R3), 46$ 

47s 
(R3), 50$ 
Pe CIRAB) , wi 


~S2; NEW VBN_BYTES 
#3,~28(1DX_ BEN), 49$ 
x NJ, RO 


moe 
~~ 
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. KEYBUF3 


F4 
. KEYBUFS 


£ 
KEYBUF4, RO 

RMSCOMPRESS_ KEY 
BKT_ADDR, SAVE_BKT_ADDR 
BKT7ADDR 

KEYBuF4, R1 

KEYBUFS, RO 

RMSRECCMPR_ KEY 
SAVE_BKT_ABDR, BKT_ADDR 
(KEYBUEGY R 
2(RO)CSIZEJ, SIZE 

16, NEW_VBN_BYTES, RO 
af 

SIZE 


0 
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oR 
Rk 
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voseb80" RMSRECORD_SIZE 1o-808-1382 94:51:58 PANS LaBasSniseut S35e4 Page 4o) 
SE Oc CO OOSIE S28: ADDLZ #12, SP 
¢ BA Boaze POP *HERZ,RS,RG> 


; Routine Size: 805 bytes, Routine Base: RMSRMS3 + O4F5 


5 
ss a RMSSHFT_VBNS 1$-Sen-1964 93:31:58 FANS SePinaami spur esos Page 18 


RM3I 
V04: 
; 2458 8 1 XSBTTL 'RMSSHFT_VBNS* : 2 
; $28 98 ROUTINE RMSSHFT_JBNS : RLSCOMMON_LINK NOVALUE = i ¢i 
3 2461 11 1 S46 : 3 
: 246 1 1! : §, 
: 246 13.1! RMSSHFT_VBNS : ¢ 
3: 24646 14 #1! : $, 
3; 2465 18 1! Spreed the VBNs at the end of the bucket to make room for : §, 
; re 18 : the new VBN(s). : $, 
: ree 218 : } This routine handles the following conditions: : 
3; 2470 2 > 2 1) two bucket split, no empty buckets : 
: 2671 521 1! ) two bucket split, empty bucket e §, 
3; 2467 5 ¢ 1! ) multi-bucket split (three or four), no empty buckets : $, 
: ot7 : ? : 4) multi-hucket split, empty buckets ; 5 
3; 24675 525. 1! The two-pass non-empty bucket bucket split cases which occur when the ; e' 
3; 2476 526 1! insertion point is found to be the same as the bucket split point are 3 e' 
; ot 2 4 ! handled as follows: : 5 
3: 24679 529 1! 5) first pass two bucket split - treated as 1) 3; 
; 2480 530 1! 6) second pass two bucket split - treated as 2) ; 
3; 2481 $23) 1! first pass multi-bucket split ; 
3; 248 25 ¢ 1! 7) one in each bucket - treated as 4) F 
: 248 533 1! 8) both in old bucket - treated as 3) 3 
: 2484 534 1! second pass multi-bucket split 3 
3: 2485 535 1! 9) one in each bucket - treated as 4) $ 
3 rey ah ’ 10) both in old bucket - treated as 2) : 
3: 2488 $334 1! The two-pass empty bucket bucket split cases which occur when the : 
: 2489 2539 1! insertion point is found to be the same as the bucket split point are F 
; sony sect ; } handled as follows: : 
3 249 $226 1! 11) second pass two bucket split - treated as 2) : 
3; 249 25435 1! 19} first pass multi-bucket split - treated as 4) 3 
: 3495 sete : 13) second pass multi-bucket split - treated as 2) : 
3: 2496 2546 1! In all cases it assumes that the new VBNs will be the same size : 
3; 2497 2547 1! as the current VBNs. If they actually are larger, the routine that : 
3 rhs $28 : inserts them will have to grow each one individually. : 
|; 2500 550 1! INPUT 3 
3; 2501 rae o 3 
3 208 226 1! none 3 
: 250 553 1! ; 
3: 2504 554 1! IMPLICIT INPUT g 
3; 2505 555 1! 3 
3; 2506 228 1! IRAB 3 
3; 2507 557 1! EMPTY BUCKET) 3 
; 2508 558 1! BIG_SPLITJ 3 
3; 2509 559 1! VBN_LEFTJ 3 
3 2510 560 1! VBN_MID 3 
3 2511 561 1! SPL_IDX 2 
3 216 26¢ 1! POS_INS 3 
: 251 563 1! BKT_ADDR 3 
3 2514 564 1! $ 
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OUTPUT 
none 
IMPLICIT OUTPUT 
The VBN chain is spread apart and ready to insert new VBNs 


BEGIN 
EXTERNA 
R 


GLOBAL REGISTER 
R_RAB, 
R~BDB. 

R~ IMPURE; 


MACRO 
OFFSET = 0,0,16,0 2%; 


LOCA 


L 

FREE_SPACE : REF BBLOCK,! Address of offset to VBN freespace 

LE Number of bytes to move 

SWING_FLG, Logical - so we don't have to check swing conditions 
ouary time around 

INS_ADDR Address where the new VBN will be inserted 

NUM~BYTES; Number of bytes which will be inserted 


The swing flag is set under the following bucket split cases: 
1. ALL empty bucket split cases 
2. First pass multibucket split cases where one key goes 
in each of the two index buckets 
3. All second pass bucket split cases 
WING_FLG = 0; 
IF .IRABCIRBSV_EMPTY_BKT) 
(. IRABCIRBSL_VBN_LEFT] EQLU 0) 
(. IPABCIRBSV_SPL_ IDX] 
AND TIRAB ent ve LE ag 
ee AND .IRABCIRBS$W_POS_INSJ NEQU BKTSC_OVERHDSZ) 
SWING_FLG = 1; 
Assume a two bucket split with no empties 


INS_ADDR = RMSCNTRL_ADDR(); 
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: 560 
; 604 
: 606 


ao 


A 
127868713 
NUM_BYTES = .BKT_ADDR CBKTS$V_PTR_SZ] + 2; 

! Consider all nonmulti-bucket cases, the second pass of the multibucket 

' case where both index records 9° in the same (old) index bucket, and the 
second pass of the multi=bucket with empty bucket split case. 

if (NOT .IRAB CIRB$V_B1G_SPLIT) 


(, IRABCIRBSL_VBN_MID] EQLA 0) 


THEN 
BEGIN 
IF .SWING_FLG 
THEN 
} For cases 2, 6, 10, 11, and 13 = just update the VBN in place 
NUM_BYTES = 0; 
END 


For cases 1, and 5 = shift the VBNs to make room for 1 new VBN 
Consider all multibucket cases except case 10 and 13 handled above. 
LSE 

ca -SWING_FLG 


For cases 3, and 8 - shift the VBNs to make room for 2 new VBNs 
NUM_BYTES = .NUM_BYTES * 2; 


For cases 4, 7, 9, and 12 - shift the VBNs to make room for 1 new VBN 
Cases 4, and 9 wilt also update one VBN in place 


Now actually shift the VBN chain provided at least one VBN is being added 

and it is not being added to the end of the chain (ie the index record(s) 

fo be aptes eo not have key values higher than all index records currently 
n the bucke 


FREE_SPACE = .BKT_ADDR + (.1DX_DFNCIOX$B_IDXBKTSZ) 
LENGTH = .INS_ADDR = (.BKT_ADDR + .FREE_SPACE COFF 


IF (.LENGTH GTR 0) 
THEN NUM=BYTES GTR 0) 
RMSMOVE (.LENGTH, .BKT_ADDR + .FREE SPACE COFFSET) 
-BKT_ADDR + .FREE_SPACE COFFSET) - .NUM_BYTES); 
Update the free space pointer. 
FREE_SPACE COFFSET] = .FREE_SPACE COFFSET] - .NUM_BYTES 


END; 


* 512) = BKTSC_ENDOVHD; 
SET}); 
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0914  8F BB 00000 RMSSHFT_VBNS: 
PUSHR  #*M<R2,R4,R8,R11> 
54 D4 90004 CLRL SWING FL 
06 EO 00006 BBS 13 SBC RAB) , 1$ 
0088 c9 D3 00008 TSTL él 
F 13 OOOOF BEQL 
44 Ad €9 90011 BLBC BS CIRAB 
02 €1 00015 BBC Buk 68( 2$ 
48 AD B1 OOOIA CMP , 
03 13 OO0iE BEQL 
01 00 00020 1$: MOVL es SWING_FLG 
00006 30 00023 2$: BSBW §RMSCNTRL_ADDR 
03 EF 00026 EXTZV #3, a T3(BKr ADDR), NUM_BYTES 
02 CO 0002C ADDL2 a2. TE 
02 €1 000¢F BBC eB CIRAB) 3$ 
0090 C9 DS 00034 TSTL 1 f4c§ 
07 12 00038 BNEQ 4$ 
54 £9 0003A 3$ BLBC SWING FLG, 5$ 
52 D4 000%D CLRL = NUM_BYTE 
06 11 0003F BRB 
54 €8 00041 4$: BLBS SWING FLG, 5$ 
02 ¢4 00044 MULL2 We, NOM BYTES 
16 A? 9A 00047 S$ MOVZBL 22(IDX_BFN), R1 
09 78 00048 ASHL R1- R 
FC A145 QE O004F MOVAB -4(R1)EBKT_ADDRI, FREE_SPACE 
61 3C 00054 MOVZWL (FREE_SPACE), R4 
55 CO 00057 ADDLg BKT_ADDR 
54 ce 0005A SUBL2 R4, LENGTH 
10 15 0005p BLEG 
52 05 0005F TSTL | NUM_BYTES 
0c 15 00061 BLEQ 6 
52 C3 00063 SUBL3 NUM BYTES, R4, -(SP) 
11 BB 00067 PUSHR #*MZRO,R 
00006 30 00069 BSBW sa RMS smove™ 
0c CO 0006C ADDL2 #12, SP 
52 A2 OOO6F 6$ SUBW2 NUM BYTES, (FREE_SPACE) 
0914 ®8F BA 00072 POP #°MZR2,R4.RB,R115 
05 00076 RSB 
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RM3M] SPUT 1b-s 
yOe-000 RMSV3_IDX_REC 1a-8e 


-1984 01:51: AX=11 Bliss-32 V4.0=-742 P 69 | 
1984 13:01:58 AMS. SREIRMSMI SPUT 83>; 29° 16) 


— 


: 
| 

: 2631 680 1 %SBTTL ‘RM$V3_IDX_REC' | : 
$ ? ¢ 1 1 99 ROUTINE RM$SV3_TDX_REC (REC_SZ) : RLSCOMMON_LINK NOVALUE = | : 
; 2634 683 1 i* ; 
: 2639 684 | { RMSV3_ IDX_REC | ; 
; 2637 ty 1/ This routine builds a new prologue three index record. It does : 
; 36 : ret : one of the following | : 
; 2640 2689 1 / go snares a VBN (swing pointer because of empty bucket) 3 
> 2641 2690 1 | a key and VBN 3 
3 264 $03) 1 / 4) aad an additional key and VBN : 
3 264 O36 1 i : 
3: 2644 2693 1 ' CALLING SEQUENCE: 3 
; 2645 2694 1 ; 
: 2646 2695 1! RM$SV3_KEY_REC (REC_SZ) 3 
>: 2647 2696 1! 3 
: 2648 2697 1 | INPUT rags ee 3 
3: 2649 2698 1 | REC_SZ - total size of record to be inserted F 
; 2650 2699 1! : 
; 2651 2700 1 ! IMPLICIT INPUTS: 5 
; soeg 2701 1! IRAB 3 
: 265 4 1 i REC_ADDR 3 
3 2654 2703 1! metre : 
3; 2655 2704 1! IDX_DFN 3 
>; 2656 2705 1! 1RAB IRB$V_SPL_IDX) F 
3; 2657 2706 1! IRABLIRBSV_EMPTY pxt) $ 
3; 2658 2707 1! IRABLIRB$B_31G_SPLITJ PF 
: 2659 2708 1} IRABCIRB$W_POS_INSJ 3 
: 2660 2709 1! IRABLIRBS$L_VBN_LEFTJ 3 
3; 2661 2710 1: IRABCIRBS$L_VBN_MIDJ : 

; 5006 2711 1! : 

3; 266 sig 1 | OUTPUT PARAMETERS: ; 
3: 2664 2713 1! 5 

3; 2665 2714 «1! NONE : 

> 2666 2715 1! 3 
3; 2667 2716 1°! IMPLICIT OUTPUTS: Ps 
; 2668 e7i7 1! : 
3: 2669 2718 1! REC_ADDR_ is updated to point + the record(s) inserted ; 

3; 2670 2719 1! REC_COUNT is incremented by the number of VBN's inserted 3 
: 2671 2720 1! $ 
; 2672 2721 1! 3 
: 2673 sis¢ 1 ' ROUTINE VALUE: 3 
> 2674 sis 1 i 3 
3; 2675 724 1! NONE 3 
3: 2676 sis? 1! 3 
3; 2677 Pg8 1 i- : 
: 2678 727 «(1 3 
: 2679 728 2 BEGIN 3 
; 2680 729 : 
: 2681 730 3 
; 268 731 : 
3; 268 136 : 
3; 26 8 3 
: 734 3 
3; 2686 ay F 
: 736 | 3 

| 


< 
oO 


D 6 
RM3MI SPUT 16-Sep-1984 01:51:28  VAX=11 Bliss-32 v4.0-74 Page 70) 
VOe~000 RMSV3_IDX_REC 1erep= 1 3Re 93:31:38 | HaMe Lessa Pe lt 03048 39° 16) 


| 

| 
; 2688 737 LOCAL ; 
; 2689 738 SAVE _REC_ADDR; F 
; 2690 739 : 
; 2691 740 MACRO . 
3; 269 74) KEY_SZ = REC_S$7<0,16> %, ; 
; 269 14g VBN7SZ = REC7S2<16,16>%; ; 
3; 2694 74 ; 
; 2695 744 ' Handle all empty bucket cases : 
; 2696 745 : PF 
3; 2697 746 IF .IRAB CIRBSV_EMPTY_BKTJ : 
: 2698 747 THEN : 
: 2699 748 3 
; 2700 749 BEGIN $ 
; 2701 750 : 
; 270 751 GLOBAL REGISTER : 
: 270 P36 R_RAB, : 
3 2704 753 3 R_IMPURE; : 
3; 2705 2754 ; $ 
; 2706 2755 ! We will only swing the VBN, if the VBN of the current index record 3 
; 2707 2756 3 ! is the same as the VBN of the leftmost primary data bucket. This may j 
5 sie tol ae | !' not be the case because of a previous index update failure, system 3 
3 2709 2758 3 ! crash, or during certain continuation bucket splits. In such cases : 
: 2710 2759 3 ! if we swing the VBN we could be causing crossed pointers to the 3 
; sft 5760 ; } level below. : 
; stig $706 3 ! The only time this VBN ouing is not done (besides when the : 
3: 2714 2763 3 ! downpointer of the current index record is rot equal to the leftmost F 
3; 2715 2764 3 ! data VBN) is during the second pass of the two-pass multi-bucket : 
: 2716 $762 3 ' empty bucket split case. : 
: 2717 766 3 ! 3 
3; 2718 2767 3 IF .IRAB CIRBSL_VBN_LEFT] EQL\ RM$V3_VBN() : 
3 1444 2768 3 THEN 3 
; sist $162 ; RMSADD_V3VBN(.IRAB CIRBfL_VBN_MIDJ); : 
3; 2722 e771 3 ! If there was a multi-bucket split involving empty buckets, RMS : 
3; 2723 2772 3 ! continues the processing here. : 
3 gist 2773 3 ! : 
3: 2725 2774 = 3 IF .IRABCIRB$V_BIG_SPLIT) : 
; 2726 2775 3 THEN F 
3: 2727 2776 4 BEGIN : 
3; 2728 e777 4 ; 3 
3: 2729 2778 4 ! Unless this is the second pass o/ the two-pass multi-bucket split 3 
:; 2730 779 4 ' case insert the key that is in keybuffer 2. If this is a one-pass 3 
: ey 780 4 ! split, also increment IRBSL_REC_COUNT, the counter of the number | : 
3s ef § 781 4 ! of VBNs succeeding the position where the VBN corresponding to : 
; et 578¢ : the just inserted key is to be inserted. : 
3: 2735 784 5 IF (. IRABCIRBSL_VBN_LEFT] NEQA 0) : 
: 2736 785 4 THEN 3 
: 2737 786 5 BEGIN 3 
; ie 4 44 2 RMSADD_V3KEY (KEYBUF _ADDR(2)); | : 
3 340 4s 2 IF NOT .IRABCIRB$V_SPL_IDX] 3 
: 3, 43! : IRABCIRBSL_REC_COUNT] = .IRABCIRBSL_REC_COUNT] + 1 | 
; Shae 793 4 END; 

} 


1b-se 
14-Se 


vv 


VOe-000" RMSV3_IDX_REC 71982 93:31:58 PANS SeBSASEmi Spit ozo, 


745 794 4 
74 795 ! Provided this is not Fhe first poss of the twonpess multi-bucket 
oes a ! with empty bucket split case, RMS now updates the VBN down pointer 


' 
' 
! associated with the index record representing the high aey of the 

! old (left) da‘a bucket before the data bucket split, and its high key 
became the high key of the rightmost data bucket. 


IF NOT .JRABCIRBSV_SPL_IDX] 


an 
oo 


a ! A key and VBN must be added for all multibucket split cases. For the one- 


roe : pees multibucket split case and the two-pass multibucket split case this 
96 


(9 Cd Cd Cd COCO 
nN 


! 

' 

! key is the second of two keys to be added Curing this current pass and the 
! first VBN. For the latter case, both keys and the VBN pet added during the 
! first pass and none get added Our ing the second pass. For the two-pass 

' multibucket split case where a key 1s inserted in each of the old and new 
! index buckets, this key and its corresponding VBN are inserted as the low 
! order key in the new index bucket during the second pass having inserted 

! the first key in the old index bucket during the first pass. 


= 


; 4 

; 4 

H 4 

: 2749 4 

; 2750 4 

: F3! 4 

: e7 ¢ 4 

: 275 802 4 

3: 2754 803 4 RMSADD_V3VBN (.IRABCIRBS$L_VBN_RIGHTJ) 

HBS eo 

: aS 806 

: 2758 807 RETURN 

; 2759 808 

3 sre 809 2 END; 

: 2761 2810 

3 2768 soil Handle all split cases not involving empty buckets. 

; 276 tk 2 : We will always add at least one key provided this is not the second pass 

; 2765 2814 2 ! of one of the three two-pass bucket split cases. If this is one of those 

: 2766 2815 2 ! three cases, the key we always add was added during the first pass when the 
; 2767 2816 2 ! old index bucket contents were upeetee. and should not be again added during 
3 5708 sels 2 this update of the new index bucket contents. 

; 2770 2819 : SAVE_REC_ADDR = .REC_ADDR; 

3; 2771 2820 

3 sire 2821 2 IF ,IRABCIRB$L_VBN_LEFT] NEQU 0 

3; 277 sbse § THEN 

; 377% 2823 : RMSADD_V3KEY (KEYBUF_ADDR(2)); 

3; 2776 $B5e 2 ! On a multibucket split, the key which will trail the two keys added must 

3: 2777 2826 2 ' be recompressed based on the first of the two keys added. This recompression 
; 2778 2827 ! is not done if the keys being added are being added to the end of the index 
3; 2779 2828 ! bucket (no trailing key), if the multibucket split case is the two-pass case 
; 2780 2829 ! where a key is added to each of the two index buckets and this is either of 
3 sie! $830 the two passes, or if index compression is not enabled (of course). 

H $788 BH IF (, IRABCIRB$V_BIG SPLITJ 

: 2784 283 AND NOT .IRABCIRBS$V_SPL_IDX) 

3 144 $eee ue . IRABCIRB$L_VBN_LEFT] NEQU 0) 

3 $789 2836 : (. IDX_DFNCIDX$V_IDX_COMPR] 

: ree Ht 4 AND ({SAVE_REC_ADDR™+ .KEY_SZ LSSA .BKT_ADDR + 

3 a4 oy soe -BKT_ADDRCBKT$W_FREESPACE)) ) 

: 2791 84 RMSRECOMPR_KEY (.SAVE_REC_ADDR , .SAVE_REC_ADDR + .KEY_SZ); 

° 4 

s 4 

5 4 

3 4 


Romononononononofonys 
ons 
SZ 
con 
COOWDONAUS WIN OO 


oo: 
“ 


Page 71 
. (16) 
| 


F 
RM3MISPUT 
voe-000 RMSV3_IDX_REC 1228 


sao 


p=198¢ 13:01:99 ERMS.SRCIAASMISPUT 83211 


; £08 2) ; ir IRAB CIRB$V_BIG_SPLITJ 
; 806 38 4 ‘ 2 RABE TABS. _VBN_MID] NEQU 0) 
: 2808 Ra 4 (, IRABLIRBSV_ SPL 10x] 
3 309 858 3 TRA IRB$W_POS_INS] EQLU BKTS$C_OVERHDSZ)) 
; 2810 859 THEN 
: B13 560 BEGIN 
3 B18 86 IF _.IRABCIRBSL_VBN_LEFT] NEQU 0 
3 B15 B64 IRABCIRBSL_REC_COUNT] = .IRABLIRBSL_REC_COUNT) + 1; 
; sf se RMSADD_V3VBN (.IRABCIRBSL_VBN_MIDJ); 
> 2819 868 IRABCIRGSV BIG, SPLIT] = 0; 
: 2820 2869 RMSADD_V3KEY (REYBUF ADDR(3)):; 
3; 2821 870 IRABCIRBSV _BIG_SPLIT TJ = 
3 ace 871 
. on 
: 825 874 ! A VBN update is always roguesey for one-pass bucket split cases. This is 
: sese 875 ' because the VBN pointer of at least one of the index records on the current 
3 est 876 ' Level has changed because of the split at the level below it. For a 
; 2828 2877 ! two-pass bucket split cases, this VBN updating must also take place. for the 
3 +494 2878 ' same reason. However, it always takes place during the second of t 
; 28 ? 2879 ' passes when the contents of the new index bucket are being aeattion’ lend it 
: HY 2881 ; it is the VBN pointer of one of those index records that has changed. 
; B34 88¢ if NOT .IRABCIRBS$V_SPL_IDX) 
3: 2834 see THEN 
. eens 
3 2837 3886 4 IF (. IRABCIRBSL_VBN_LEFT] NEQU 0) 
: $839 gas 4 (, IRABLIRBS$L_VBN_MID] NEQU 0) 
3 sees 89 THEN 
$ rah 44 IRAB CIRBSL_REC_COUNT] = .IRAB CIRBSL_REC_COUNT] + 1; 
; bcs 289 RMSADD_V3VBN (.IRAB CIRBS$L_VBN_RIGHT]) 
: 2845 894 END; 
3; 2846 ue $ 
3 2847 896 1 END; 
0900 8F BB 00000 RM$V3_IDX_REC: 
POSHR wer $6 R11> 
40 44 AD 06 gi 90004 BBC rT) gy Sou an: 
00006 30 00009 BSBW 
50 0088 9 o) 000¢ CMPL TyetIRAB 
A 0011 BNEQ 
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; Routine Size: 251 bytes, 


Routine Base: 


“feo 1 9g 93:81: 
om HM 
0094 C9 D 13$: INCL 
ac CC p £C 14$:  PUSHL 

et 
0900 ef BA OOF6 15S: POPR 
5 OOOFA S$ 


RMSRMS3 + 0891 


he rae SPE A te 
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6 
RMSMISPUT 14-56 
ara 4 RMSV3KEY_SZ 14-Se 
9 1 ZSBTTL ‘RMSY3KEY_S7' 
9 ROUTINE RMSVSKEY_SZ (KEY_ADDR) : RLSCOMMON_LINK = 
he 


: FUNCTIONAL DESCRIPTION: 


This routine computes the number of chars needed to store the 
prologue three key in KEY_ADDR at REC_ADDR. 


i CALLING SEQUENCE: 


te J 
PPA 
CONSE wr 


B3SSS3SSSSSSS 


RIPDPIPIPIPIPINPINMYIPINMPDNININIAPINYNY 2 0 i i a td a ot ot ot ot ot = = 


1 
! 
' 
1 
1 
1 ‘ RMSVSKEY_SZ() 
£66 910 : 
ot a INPUT PARAMETERS: 
865 318 } KEY_ADDR = Address of the key to be inserted 
8s? 913 ; IMPLICIT INPUTS: 
424 319 ; BKT_ADDR = Pointer to the current bucket 
870 918 : IDX_DFN = Pointer to index descriptor structure 
871 919 ! IFAB - Pointer to internal FAB 
ore 920 ‘ IRAB - Pointer to Internal RAB 
th 1 REC_ADDR = Address to insert key 
875 9 : i QUTPUT PARAMETERS: 
a76 924 ! NONE 
87 925 ! 
878 9 $ ' IMPLICIT OUTPUTS: 
879 9 ! NONE 
880 928 ! 
rt ; , ROUTINE VALUE: 
B83 931 ! RO = number of bytes needed to store the key after front compression 
rt sees and rear-end truncation (doesn't include two bytes of overhead). 
BBo 935 
888 338 BEGIN 
889 33 
890 938 P 
891 939 KEY_ADDR : REF BBLOCK; 


EXTERNAL REGISTER 
R_STR, 


“IE CUSHE WMG" DaD RHEE: 


RMS 
V04 


eee SSS S8ss 

DONAARWNIO 
LLLLL L0G 
WR -OOOnNOW 


Lt 


ODODOOOOODODOOOO0O0O 


SS Nee UNO 


ooo 
a 
= 


DURA Ru 


Se Se Se Ge Se Se Ge Se Ge Se Se Oe Ge Se Se Se Se Se Ge Ge Se Se Se Se Ge Ge Se Ge Se Se Sete ee ee 


OOODODODOO0O 


Ww 
o 


KEYBUF =: REF BBLOCK; 


Data level. 
IF .BKT_ADDR CBKT$B_LEVEL) EQLU 0 
BEGIN 
IF NOT .IDX_DFN CIDXSV_KEY_COMPR] 
. RETURN .IDX_DFN CIDX$B_KEYSZ]; 


Index level. 


ELSE 
BEGIN 


IF NOT .IDX_DFN CIDXS$V_IDX_COMPRI 
yp :RETURN =1DX_DFN C1DXSB_KEYSZ2; 


! Must be a compressed key. Move key into keybuffer 5, compress it, and 
return its size (not including the two byte of compression overhead). 


KEYBUF = KEYBUF_ADDR(5); 
RMSMOVE (.KEY_ADDRCKEY_LEN] + 2, .KEY_ADDR, .KEYBUF); 


RMSCOMPRESS_KEY (.KEYBUF); 
RETURN .KEYBUFCKEY_LENJ 


END; 


0914 8F BB 00000 RMSV3KEY_S7Z: 
PUSHR #*M<R2,R4,R8,R11> 
0c AS 95 00004 TSTB =: 12 (BKT_ADDR) 
07 if 00007 BNEQ 
1¢ (A? 06 f 9009 BBS #6, 28(IDX_DFN), 3$ 
1 BRB 2$ 
1c (A? 03 £0 0010 1$: BBS 43 28(IDX_DFN), 3$ 
50 20 AZ? 9A 00015 2$: MOVZBL 32(IDX_DFNY, RO 
25 11 0001 BRB 4$ 
59 0084 CA 3C 0001B 3s: MOVZWL 180(1F AB) RO 
2 60 8949 DE 000 MOVAL @96(IRAB)(ROJ, KEYBUF 
52 DD 6 PUSHL KEYBUF 
18 AE pp PUSHL KEY_ADDR 
7E 1c A A MOVZBL @KEY_ADDR, -(SP) 
6E ¢ : ADDL2 #2, TSP) 
00006 BSBW RAEMOVE 
5E O¢ C ADDL2 #i2, SP 
D0 60037 MOVL KEYBUF, RO 


“1383 94:31:58 FANS Bbisg, 3vt-0524 
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50 00996 3A 0030 mOvI8 MREVOUF Ie 8 po + 2985 
0914 $f BA io 4$: POPR . SATRe AL Re ai1> : 3387 
5 00044 RSB 


; Routine Size: 69 bytes, Routine Base: RMSRMS3 + 098C 
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RMSVBN_SIZE 
ZSBTTL 


6 
1B-Sen-1984 01:51:28 


*RMSVBN 


SIZE’ 
GLOBAL ROUTINE RMSVBN_SIZE (VBN) : RLSPRESERVE1 = 


'e4 


FUNCTIONAL DESCRIPTION: 
Calculate number of bytes required to describe input VBN 


CALLING SEQUENCE: 
RMSVBN_SIZE (VBN) 


INPUT PARAMETERS: 
VBN = VBN whose size is to be determined 


IMPLICIT INPUTS: 
NONE 

OUTPUT P RAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


number of bytes needed to describe VBN 
SIDE EFFECTS: 
NONE 


MAP 
VBN : VECTOR (4, BYTE); 


SIZE = 3; 

dO 
IF .VBNC.SIZE] NEQ 0 
THEN 


ELSE 
SIZE = .SIZE - 1 


UNTIL .SIZE EQL 1; 
SIZE = .SIZE + 1 


oe Bliss-32 V4.0-74 
RMS .SRCIRMSMISPUT .B32; (18) 


al 
; 2998 


3; Routine Size: 


S383 


Name 
RMSRMS3 


File 


; Information: 
3; Warnings: 
3; Errors: 


RMSVBN_SIZE 

3045 1 END; 
50 
01 

19 bytes, Routine Base: 

046 1 

047 1 END 

048 1 

049 0 ELUDOM 


Bytes 


6 
16-Sep-1986 
19-3007 138 


Sep- 


Library Statistics 


0 00000 RMSVBN_SIZE:: 
MOVL #3, SIZE 
04 AESO 95 00003 1$: TSTB VBNCSIZEJ 
of 12 0000 BNEQ 2$ 
$3 8 Sete Poet TE, 
F3 0) O00E BNEG i$ 
50 +4 90016 2$ INCL SIZE 
05 0001 RSB 
RMSRMS3 + 0901 
PSECT SUMMARY 
Attributes 
2532 NOVEC.NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
eoceceee ymbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
3109 81 2 154 00:00.4 


-5255$DUA28 : CRMS .OBJIRMS.L32;1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:RM3M1SPUT/OBJ=OBJ$:RMSMISPUT MSRC$:RM3MI SPUT/UPDATE=(ENHS: RM5M1SPUT) 


a 93:31:55 Ufms sec SnnSni spurt 832; 
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(18) 


082 


304 
304 
04 
04 


0 
2 


4 
5 


pm 


ez 


Be Se Se Se Se Oe Se Be SH Se Se Be Se Se Ge Fe Ge Se Se Se Se Se Se Se Ge Fe Se Ge Se Fe Se Se Se Se Se SiGe Se Se Se Fe Se Se Se Seasese Se Se Se Se Sete Seve teas 


vornboo”. RMSVBN_SIZE If: sep: 198 95:01:59  EAMS SRESRMSMT SPUT :o35¢4 Page 43) 


: 3003 303 0 

3; Size: code + 0 data bytes 
; Run Time: 758.1 

5 sed Ti m 

3 Lines/CPU Min 14 

; oncnen SY: ig 7" 87 

3 ry Us ages 

: Compilation. Completes 
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